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1.  INTRODUCTION 


The  LCWTRAN5  computer  code^'  and  its  predecessors,  L0WTRAN2,  3,  3B  and 
^(2,3,4,5)t  j^^oped  by  the  Air  Force  Geophysics  Laboratory  (AFGL) ,  are 
widely  used  to  calculate  atmospheric  transnittance  and  radiation  in  the 
0.25-28  uni  spectral  region  at  a  resolution  o£  20  cm”*.  These  codes  include 
the  effects  of  scattering  and  absorption  by  atmospheric  molecules  and 
aerosols.  LOWTRAN5  is  easily  used  and  allows  the  user  considerable  flexi¬ 
bility  in  selecting  model  atmospheres,  aerosol  type  and  distribution,  local 
radiosonde  data  and  atmospheric  paths.  The  spectral  resolution  is  determined 
by  the  model  used  for  molecular  line  absorption  and  emission,  since  the  other 
components,  molecular  continuum  absorption  and  aerosol  extinction,  exhibit 
a  slowly  varying  spectral  structure.  For  calculational  efficiency  LOWTRAN5 
utilizes  temperature-independent  molecular  absorption  coefficients  and  approxi¬ 
mates  molecular  line  absorption  by  a  one-parameter  band  model  which  has  a 
spectral  resolution  of  20  cm-1.  This  paper  discusses  a  modified  version  of 
L0WTRAN5  which  includes,  (1)  an  increase  in  the  spectral  resolution  from  20 
to  5  cm”*,  (2)  the  addition  of  the  temperature  dependence  of  the  molecular 
absorption  coefficients,  and  (3)  the  use  of  a  multi-parameter,  Doppler- 
Lorentz  band  model  for  calculation  of  molecular  transmittance.  All  other 
L0WTRAN5  features  such  as  aerosol  models,  molecular  and  aerosol  scattering, 
continuum  components  and  refractive  effects  remain  unchanged. 

The  use  of  band  model  approximations  in  atmospheric  transmittance  calcu¬ 
lations  has  been  thoroughly  reviewed  by  Anding^  (1967)  and  more  recently 

by  LaRocca  and  Turner ^  (1975).  The  most  recent  contributions  to  this  area, 

(8)  (9) 

which  are  not  covered  in  the  reviews.  Includes  work  by  Aoki ,  *  Greunzel, 

and  Plerlulssl  et  alf*®*  The  main  contribution  of  this  effort  is  a  synthesis 
of  previous  theoretical  formulations  into  an  entirely  theoretical,  unique 
model  Incorporated  into  an  operational  version  of  L0WTRAN5.  The  primary 
features  of  the  model  include: 
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1.  Tmnperature  dependent  ebeorption  coefficients  end  line  density 

peraacters; 

2.  Explicit  evaluation  of  the  exact  expression  for  the  equivalent 
width  of  a  Voigt  line  in  a  finite  spectral  interval, 

3.  Inclusion  of  the  molecular  continuum  absorption  due  to  the  tails 
of  lines  originating  outside  a  given  spectral  interval, 

4.  Relatively  high  spectral  resolution  (5  cm"1)  for  a  band  model, 

5.  Temperature  and  frequency  dependent  collision  broadened  line- 
widths,  and, 

6.  Power  law  approximation  to  the  transmittance  of  a  finite  number 
of  lines. 

The  5  cm'1  band  model  parameters  have  been  developed  using  the  molecular 
data  in  the  AFGL  HITRAN^11^  line  atlas  for  the  major  atmospheric  absorbers 
(C(>2»  NjO,  co»  CH4*  ®3»  C>2»  H2O).  The  absorption  coefficient.  S/d,  and  line 
density,  1/d,  band  model  parameters  were  determined  at  5  cm  1  resolution 
from  400-10,000  cm"1  (1-25  Jim)  and  at  200,  225,  250,  275,  and  300K. 

A  combined  Doppler-Lorentz  band  model  is  uBed  to  approximate  the 

change  in  molecular  transmittance  due  to  the  altitude  dependence  of  the 

(12  13) 

lineshape.  The  Curtis-Godson  *  approximation  is  used  for  multilayered 
transmittance  calculations. 

The  philosophy  for  Incorporating  the  5  cm"1  band  model  option,  hereafter 
referred  to  as  BM0D,  has  been  to  minimize  all  coding  changes  to  L0WTRAN5 . 
While  developing  BM0D,  and  interfacing  it  with  L0WTRAN5,  it  was  found  that 
some  minor  changes  to  the  code  would  increase  its  overall  utility.  As  a 
result,  the  code  modifications  presented  in  this  report  are  divided  into 
two  categories:  those  required  to  implement  the  BMOD  option  and  optional 
changes  which  increase  the  code's  general  usefulness  or  its  compatibility 
with  different  mschlnes.  The  required  and  optional  changes  are  indicated 
in  the  listing  (Appendix  D)  with  an  asterisk  and  a  colon  respectively  as 
part  of  the  sequence  ntnber. 
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The  BMOD  option  requires  the  addition  of  six  subroutines  and  the  use  of 
an  external  disc  or  tape  file  which  contains  the  band  model  parameters.  The 
BMOD  option  is  activated  by  an  additional  input  parameter  (JBMOD)  which  has 
been  added  to  Card  1  and  by  allowing  access  to  a  binary  file  with  the  band 
model  parameters.  Otherwise,  the  usual  LOWTRAN  four-card  sequence  of  data 
cards  is  unchanged,  unless  the  Print/Plot  Package  described  below  is  used. 

Optional  changes  to  the  program  include  a  Print/Plot  Package,  generali¬ 
zation  of  some  statements,  and  Inclusion  of  a  blackbody  source  term.  As  part 
of  the  Print/Plot  Package  the  results  calculated  at  5  cm  *  resolution  can 
be  degraded  through  a  user-specified  slit  function;  the  results  are  printed 
in  tabular  form.  The  user  can  request  transmittance  and/or  radiance  plots 
as  a  function  of  either  wavenumber  or  wavelength.  Several  L0WTRAN5  state¬ 
ments  have  been  generalized  to  a  more  standard  FORTRAN  format  which  should 
increase  the  ease  of  implementation.  A  background  blackbody  source,  which 
previously  was  restricted  to  reside  at  sea  level,  can  now  be  located  at  any 
altitude. 

This  report  provides  description  and  documentation  for  implementing  the 
5  cm-1  capability  into  L0WTRAN5.  This  report  is  intended  as  a  supplement 
to  the  L0WTRAN5  Users'  Manual. ^  The  molecular  transmittance  model  and  the 
band  model  parameters  used  in  BMOD  are  presented  in  Section  2.  The  modifica¬ 
tions  to  the  L0WTRAN5  code  are  described  in  Section  3.  Input  instructions 
are  given  in  Section  4.  The  appendices  consist  of  a  detailed  description  of 
the  Print/Plot  Package,  flowcharts  for  the  additional  subroutines,  a  list  of 
variables,  a  complete  program  listing,  sample  cases  with  input  and  output, 
and  a  narrative  description  for  implementing  the  BMOD  option  to  L0UTRAN5. 

Comparison  of  the  execution  time  for  cases  run  with  and  without  the 
BMOD  option  are  presented  in  Table  1.  Our  experience  on  the  Aerodyne  PRIME 
400  computing  system  is  that  the  5  cm  ^  capability  is  roughly  a  factor  of  two 
to  four  slower  than  the  regular  LOWTRAN 5 . 


ILLUSTRATIVE  RUN  TIMES  ON  PRIME  400  COMPUTER 
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2.  MOLECULAR  TRANSMITTANCE  MODEL 

2.1  Single  Line  Equivalent  Width 

The  expression  used  In  the  modified  LCWTRAN5  code  to  calculate  molecular 
transmittance  is  based  on  a  statistical  model ^*15,16)  £or  #  finite  number 
of  lines  in  a  finite  spectral  Interval ,  and  is  given  bp 


T  "  t1  "  (“s*/nd)3 


(1) 


where  r  is  transmittance,  is  the  average  of  the  single  line  equivalent 
width  over  the  line  strength  distribution  in  the  spectral  Interval,  n  is  the 
effective  number  of  lines,  and  d  is  the  mean  line  spacing.  The  number  of 
lines  is  related  to  the  spacing  by 

n  ■  Aw/d  (2) 

where  Au>  is  the  width  of  the  Interval.  For  large  values  of  n,  generally 
n  >  10,  Eq.  (1)  simplifies  to  a  more  recognizable  exponential  form  given  by 

lira  t  ■  exp(-W8g/d)  .  (3) 


For  the  molecular  species  end  relatively  low  temperatures  encountered  in  the 
Earth's  atmosphere,  the  spectral  line  density  is  sufficiently  small  (generally 
n  <  10  for  Au  -  5  cm”*),  so  that  the  power  law  transmittance  approximation  in 
Eq.  (1)  is  preferred. 
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There  are  many  approximations  available  for  calculating  the  equiva¬ 
lent  width;  the  different  approximations  are  valid  for  different  regimes, 
Doppler  or  collision  broadening,  weak  line  or  strong  line,  etc.  However, 
no  single  approximation  is  adequate  for  the  range  of  pressures  and  optical 
pathlengths  encountered  in  atmospheric  transmission  calculations.  Rather 
than  incorporate  different  approximations,  we  directly  evaluate  the 
exact  expression  for  the  equivalent  width  of  a  single  line  with  a  Voigt 
lineshape;  Wg^  is  given  by 


Ws*  "  <2yd/U°2)1/2) 


J  ^1  -  exp  | -(Su/YD)(ln2/ir)1/r2F(x,y) 


) 


dx  (4a) 


00 

-  J  f  dt 

*  y2+(x-t)2 


(4b) 


x  -  (ln2)1/2  (o«do)/Yd 

j  -  (1»2)1/2  yc/Y„ 


(4c) 


where  yd  is  the  Doppler  llnewldth,  Yc  is  the  collision  broadened  llnewidth, 

S  is  line  strength,  u  is  optical  pathlength,  u>  is  frequency,  x  is  dimensionless 
frequency,  y  is  dimensionless  llnewldth,  and  F(x,y)  is  the  Voigt  lineshape 
function.  Numerical  integration  of  Eq.  (4a)  from  0  to  xn  is  extremely  time 
consuming;  however,  it  is  not  necessary  to  numerically  integrate  over  the 
entire  interval.  There  is  always  a  value  of  x,  say  x^,  beyond  which  the 
asymptotic  expression  for  F(x,y)  is  quite  accurate  and  is  given  by 
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(5) 


11a  F(x,y) 
x  ■*  • 


Thus,  Eq.  (4a)  can  be  numerically  integrated  up  to  xD,  and  from  x.  to  x  the 

X  X  ID 

integration  is  given  directly  by 


exp (-B2/x2)dK 


+  vr*i 


erf(z  )  - 

ID 


erf  (z 


6 


4 


(Su/yD)(ln2/ir)1/2(y/Vn) 


(6) 


z  -  6/x 

(18) 

where  the  error  function,  erf(z),  is  evaluated  by  a  rational  approximation/ 

For  evaluation  of  F(x,y)  in  the  numerical  integration,  an  algorithm  developed 
,  (19) 

by  Humlicek  is  used.  At  lower  altitudes,  where  collision  broadening  pre- 

2 

dominates,  x^  is  of  order  10  and  at  higher  altitudes,  where  Doppler  and 
collision  broadening  are  comparable,  an  x^  of  3  or  less  is  usually  sufficient. 
A  typical  value  of  x  .  for  Au/2  -  2.5  cm"1,  is  x  s  103. 

.3 

At  altitudes  where  Doppler  broadening  predominates  (y  <  10  )  the  equiva¬ 
lent  width  integral  is  approximated  as  the  sum  of  a  pure  Doppler  (y  ■  0) 

equivalent  width  and  the  asymptotic  contribution  with  x.  :  3,  where  the 

(17)  * 

Doppler  equivalent v  width  is  given  by 


liM  ».£,»  *  <2/ln2)I/2 


1  +  (ln2/2)  (Su/Y  d)4 


(7) 
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2.2  Curtis-Godson  Approximation 

Paths  through  a  real  atmosphere  usually  pass  through  regions  of  changing 

(12  13) 

pressure,  temperature  and/or  concentration.  The  Curtis-Godson  *  approxi¬ 
mation  replaces  an  Inhomogeneous  path  with  a  homogeneous  one  by  using  average 
values  for  the  equivalent  width  and  transmittance  parameters.  The  Curtis- 
Godson  approximation  Is  very  good  for  paths  where  the  temperature  or  species 
gradient  Is  not  particularly  steep.  This  is  certainly  the  case  for  atmospheric 
paths  where  the  temperature  variations  for  arbitrary  paths  fall  within  the 
range  of  200  to  30QK.  The  total  optical  depth  is  a  sum  over  contributions 
from  the  individual  layers  and  is  given  by 

(S/d)u  -  (S/d)i  Au±  (8) 

where  Au^  is  the  incremental  optical  path  and  (S/d)^  is  the  average  molecular 
absorption  coefficient  for  the  l'th  layer.  This  quantity  is  used  as  the 
weighting  function  in  calculating  the  mean  value  of  y/d,  which  is  given  by 

Wd)  -  (T/d)i  (S/d)±  Au^S/dJu  ,  (9) 

where  y  stands  for  either  Yc  or  y^.  The  average  values  of  the  line  density, 
1/d,  and  total  number  of  lines,  n,  are  analogously  defined.  The  equivalent 
width  is  calculated  with 

~  -  (S/d)u/(yJ/d)  ,  (10) 

and  the  transmittance  is  computed  with 

n  -  Aw  (l7d)  (11) 


r'.iri rtaimme  *••• . 
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The  transmittance,  as  approximated  by  Eq.  (1),  takes  Into  account  only 
lines  which  originate  within  the  spectral  Interval,  and,  for  these  lines, 
only  the  fraction  of  the  line  profile  which  falls  within  the  Interval  is 
included  in  the  computation  of  the  equivalent  width  by  Eq.  (4a).  This  approx¬ 
imation  is  raasonable  in  the  strongly  absorbing  region  of  a  band;  however, 
because  the  absorptivity  is  expressed  in  terms  of  the  local  line  strength 
distribution,  it  becomes  a  poor  approximation  in  regions  where  the  lines 
are  weak  or  nonexistent.  This  typically  occurs  in  the  center  and  far  wings 
of  a  band  (l.e.,  past  the  band  head),  and  also  in  spectral  intervals  con¬ 
taining  no  lines  which  are  in  the  vicinity  of  isolated  strong  lines.  For 
these  situations,  the  local  absorption  is  dominated  by  the  accumulated  tails 
of  the  stronger  lines  originating  outside  the  interval.  The  effect  of  line 
wing  absorption  is  included  in  the  transmittance  by 


t  -  [i  -  (Wgl/nd)]  exp  (-Cffiu) 


where  C  is  the  molecular  line  wing  continuum  absorption  coefficient.  The 
in 

determination  of  C  is  discussed  in  a  later  section. 


2.4  S/d  and  1/d  Parameters 

The  S/d  and  1/d  band  model  parameters  were  generated  from  the  AFGL 
HITRAN  line  atlas  by(7,11) 


.  T)  -pSj  <T)J  jtm 
,  T)  •  j*  £  V5JTT)j  2  /  £  Aw2  S/d  (w,  T)J 
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where  Si(T)  is  the  Integrated  line  strength  of  the  i'th  transition  at  tempera¬ 
ture,  T,  and  Aid  is  the  spectral  resolution.  The  sums  in  Eq.  (13)  are  subject 
to  the  constraint  that  the  line  center ,  of  each  transition  Included  fall 
vlthim  the  spectral  Interval,  u  -  Aw/ 2  £  <u>  +  Aw/2.  The  line  strength 

at  an  arbitrary  temperature,  can  be  scaled  from  the  HITRAN  line  strength  at  a 
reference  temperature,  T.t  by 


Si(T) 


VWV 

Qv(T)Qr(T) 


exp  [-Ei(Te-T)/(kToT)] 


(14) 


exp 


W 


where  and  are  the  vibrational  and  rotational  partition  functions,  and 
E^  la  the  energy  of  the  lower  transition  state. 

The  S/d  and  1/d  parameters  were  computed  at  5  cm-1  resolution  from  400  to 
10,000  cm-1  (1-25  Urn)  and  at  200,  225,  250,  275,  and  300K.  Following  the 
L0UTRAN  format,  the  band  model  parameters  of  the  uniformly  mixed  gases  (COj, 
N20.  CO,  CH^,  Oj)  were  combined  according  to  atmospheric  mixing  ratio,  Xg» 
by 


(15) 


Band  model  parameters  for  the  nonunlformly  mixed  gases,  HjO  and  0^,  were 
calculated  individually  according  to  Eq.  (13) .  For  the  uniformly  mixed 
species  an  average  molecular  weight  Muaix» 


and  line  broadening  parameter. 


aumix*  were  also  deternlned»  ls  they  ere  required  in  the  evaluation  of  the 
Doppler-Lorentz  curve-of -growth.  These  quantities  were  calculated  as  line 
strength  weighted  averages  by 

'  [?  M»x-  ?  si»] /[?*»?  s*»]  (1' 

where  an  analogous  expression  was  used  for  a  .  . 

urn  lx 

2.5  Line  Wing  Continmnn  Absorption  Coefficients 

The  approximate  contribution  of  the  line  tall  absorption  in  the  k'th 
spectral  interval  is  given  by 


cB(T,  p, 


■f  # 


Au 

IT 


r 

U*k 


•/d(uit  T) 


X0*>±  - 


V 


(17) 


where  x(w^  ~  is  a  form  factor  expressing  deviation  from  Lorentzlan 

behavior,  and  the  sum  is  over  all  spectral  intervals,  i,  excluding  i  -  k. 

We  have  calculated  Cffl(T,  P,  u^)  for  all  the  bands  of  H20  and  CC>2  on  the 

same  wavenumber  and  temperature  grid  as  the  S/d  and  1/d  parameters.  For 

the  CO,  bands  the  Burch ^  ’  *  form  factor  was  used,  while  for  the  Ho0 

_1  *■ 
bands  250  cm  Lorentz  tails  were  assumed. 


2.6  Examples  of  Band  Model  Parameters 

Examples  of  the  S/d  (molecular  absorption  coefficient)  and  1/d  (line 
density)  band  model  paraneters  and  the  continuum  absorption  coefficients  for 
the  uniformly  mixed  gases  and  HjO  are  shown  in  Figs.  1  through  5.  The  temp- 
stature  variation  of  the  S/d  parameter  for  the  uniformly  mixed  gases  in  the 
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(on**  nr1) 


Figure  1.  Temperature  Dependence  of  the  Figure  2.  Temperature  Dependence  of  the 
Uniformly  Mixed  Gas  Molecular  Uniformly  Mixed  Gas  Line 

Absorption  Coefficient.  Density  Parameter. 


WAVENUMBER  (cm**) 


Figure  3.  Temperature  Dependence  of  the  Uniformly 

Mixed  Gas  Molecular  and  Continuum  Absorption 
Coefficients  in  the  Band  Head  Region  of  the 
4.3  urn  C0o  Band. 
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spectral  region  of  the  4.3  pm  C02  absorption  is  found  in  Fig.  1.  A  signifi¬ 
cant  temperature  variation  is  seen  to  occur  throughout  this  region  for  the 
range  of  atmospheric  temperatures  typically  encountered  below  100  km  altitude. 
In  atmospheric  transmission  calculations,  the  band  model  parameters  at  inter¬ 
mediate  temperatures  are  determined  by  linear  extrapolation  from  the  tabulated 
values  at  200,  225,  250,  275,  and  30 OK.  The  temperature  dependence  of  the 
line  density,  1/d,  parameter  in  the  4.3  pm  region  is  displayed  in  Fig.  2. 

The  spectral  region  about  the  band  head  of  the  CO^  4.3  pm  band  has  been 

previously  studied  because  of  its  potential  use  for  satellite  sounding  of 

(23  24) 

atmospheric  temperature  and  density.  '  The  relative  contribution  of 
the  molecular  and  continuum  absorption  coefficients  in  this  spectral  region 
are  shown  in  Fig.  3.  There  is  a  strong  temperature  dependence  of  the  molec¬ 
ular  absorption  coefficients  from  2380-2400  cm~^,  about  an  order  of  magnitude 
variation  from  200  to  300K.  A  much  weaker  temperature  dependence  is  calculated 
for  the  continuum  absorption.  The  continuum  component  below  2380  cm  1  is 
typically  two  or  more  orders  of  magnitude  smaller  than  the  molecular  absorp¬ 
tion  coefficient.  The  molecular  and  continuum  absorption  coefficients  for 
the  low  wavenumber  portion  of  the  2.7  pm  H20  band  are  shown  in  Fig.  4.  In 
several  of  the  pronounced  micro-window  regions,  such  as  3535,  3625,  and 
3665  cm  \  the  continuum  absorption  is  comparable  to  the  molecular  absorp¬ 
tion.  The  line  density  parameter  for  the  2.7  p  m  H20  band  is  found  in  Fig.  5. 


2.7  Comparisons  of  LOWTRAN5  and  L0WTRAK5 (BMOD) 

Examples  of  transmittance  and  radiation  calculations  with  the  LOWTRAN 5 
and  LOWTRAN (BMOD)  options  are  displayed  in  Figs.  6  through  15.  These  compari¬ 
sons  highlight  the  similarities  and  differences  between  the  two  options  for 
a  variety  of  atmospheric  paths.  It  is  apparent  that  if  the  5  cm  ^  BMOD  calcu¬ 
lations  were  degraded  to  the  20  cm”*  LOWTRAN 5  calculations,  the  overall  agree¬ 
ment  would  be  quite  good.  However,  at  5  cm”*  resolution,  large  deviations 
from  the  lower  resolution  calculations  occur.  The  horizontal  path  transmit - 
tancea  in  Figs.  6  through  9  demonstrate  the  altitude  dependence  of  the  two 
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WAVENUMBER  (cm-l) 

Figure  6.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0KTRAN5  Atmospheric 
Transmission  Predictions  for  a  5  km  Horizontal  Path  at 
0  km  Altitude. 


1900  2000  2100  2200  2300  2400  2500 


WAVENUMBER  (cm- 1) 

Figure  7.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5  Atmospheric 
Transmission  Predictions  for  a  19.6  km  Horizontal  Path  at 
12.0  in  Altitude. 
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TRANSMITTANCE  c  TRANSMITTANCE 


WAVENUMBER  (cm-l) 

8.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5 
Atmospheric  Transmission  Predictions  for  a  152.8  km 
Horizontal  Path  at  25.0  km  Altitude. 
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2420 


Figure  10.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5  Atmospheric 
Transmission  Predictions  for  the  Wings  of  the  4.3  ^m  C02  Band 


Figure  11.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5  Atmospheric 
Transmission  Predictions  for  the  Wings  of  the  4.3  vm  CO.  Band 


Figure  12.  Comparison  to  L0WTRAN5  (Band  Model)  and  L0WTRAN5  Atmospheric 
Transmission  Predictions  for  a  Ground  to  Space  Vertical  Path. 


Figure  13.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5  Atmospheric 
Transmission  Predictions  for  a  10  km  to  Space  Vertical  Path. 
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Figure  14.  Comparison  of  L0WTRAN5  (Band  Model)  to  L0WTRAN5  Background 
Radiance  Predictions  for  a  Ground  to  Space  Vertical  Path. 
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Figure  15.  Comparison  of  L0WTRAN5  (Band  Model)  to  L0WTRAN5  Background 
Radiance  Predictions  for  a  Space  to  Ground  Vertical  Path. 
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options.  The  path  lengths  at  each  altitude  were  chosen  to  give  an  identical 
molecular  column  density  for  the  uniformly  mixed  gases.  The  increased  trans¬ 
mittance  with  increased  altitude  is  chiefly  due  to  curve -of -growth  effects. 
That  is,  as  altitude  increases,  the  molecular  linevidth  decreases,  and  the 
centers  of  lines  become  more  opaque  while  the  wings  become  more  transparent. 
The  differences  between  the  two  models  reflect  different  curve-of-growth 
formulations.  In  L0WTRAN5,  the  one  parameter  curve-of-growth,  reduces  to 
the  familiar  weak  and  strong  line  limits,  for  small  and  large  absorber 
amounts  respectively,  which  is  essentially  a  collisional  broadening  trans¬ 
mittance  model.  In  LOWTRAN5(BMOD) ,  the  equivalent  width  calculation 
includes  both  collisional  and  Doppler  broadening  effects. 


2.8  Comparison  of  L0WTRAN5  Models  to  Measurements 

Comparison  of  L0WTRAN5  predictions  for  both  the  20  cm  *  and  5  cm  * 

options  with  transmittance  and  background  radiance  measurements  are  shown 

in  Figs.  16  through  21.  In  Figs.  16  and  17  the  LOWTHAN5  predictions  are 

(25) 

compared  to  transmission  data  obtained  by  AFGL  (Sandford,  et  al.)  in 

the  vicinity  of  Johnston  Island.  It  is  seen  that  the  LOWTRAN5 (BMOD) 

results  closely  follow  the  4  cm  ^  interferometric  data.  In  Fig.  18,  the 

L0WIRAN5 (BMOD)  predictions  generally  follow  the  2  cm  ^  General  Dynamics 

(Blay  et  al.)^^  transmission  data,  although,  there  is  a  significant 

discrepancy  around  2.3  um.  Similar  calculations  with  LOWTRAN5  have  compared 

better  with  the  data  in  this  region,  which  suggests  that  some  H^O  lines  may 

be  missing  from  the  HI TRAN  compilation  in  this  region.  Background  radiance 

(27  28  29) 

predictions  are  compared  to  measurements  *  *  in  Figs.  19  through  21, 

where  the  L0WTRAN5(BM0D)  calculations  closely  parallel  the  data  in  all 


cases . 


WAVENUMBER  (CM-I) 


Figure  16.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5  Predictions 
to  AFGL  Transmission  Measurements^)  for  a  5.48  km  to  Space 
Path  with  a  12°  Zenith  Angle. 
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Figure  17.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5  Predictions 
to  AFGL  Transmission  Measurements (25)  for  a  12.2  km  to  Space 
Path  with  a  11°  Zenith  Angle. 


aJLk. 


Figure  18.  Comparison  of  L0WTRAN5  (Band  Model)  Predictions 
to  General  Dynamics  Transmittance  Measurements' 
for  a  Low  Altitude  11.9  km  Slant  Path. 
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Figure  19.  Comparison  of  L0WTRAN5  (Band  Model)  and  L0WTRAN5 
Predictions  to  AFGL  Ocean  Background  Radiance 
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3.  MODIFICATIONS  TO  L0WTRAN5 


The  coding  modifications  to  LOWTRAN5  fall  into  two  general  categories. 

The  first  category,  which  is  discussed  in  subsection  3.1  and  3.2,  covers 
changes  required  to  implement  the  BMOD  option  (5  cm'1  spectral  resolution). 

The  second  category  is  optional  changes  which,  although  not  required  for  the 
BMOD  option,  do  serve  to  increase  the  code's  overall  capabilities.  The  option¬ 
al  changes  discussed  in  subsection  3.3  include:' 

e  The  Print/Plot  Package  for  plots  and  use  of  a  slit  function 
e  A  blackbody  source  term  at  any  H2  for  radiation  calculations 
e  Formatted  BEAD  and  WRITE  statements  for  general  machine  compatibility 
e  I/O  device  numbers  in  common  blocks  to  facilitate  device  assignments 
e  L0WTRAN5  data  in  a  BLKDATA  subroutine  for  general  machine  compatibility 
e  L0WTRAN5  File  7  commented  out  because  of  the  Print/Plot  Package. 

The  required  changes  are  indicated  in  the  program  listing  by  an  asterisk 
before  the  sequence  number;  the  optional  changes  are  indicated  by  a  colon. 

The  required  and  non-required  changes  are  guided  by  the  philosophy  that  the 
impact  on  the  L0WTRAN5  coding  be  minimized. 

3.1  Implementation  of  the  5  cm~*  Capability 

A  new  control  parameter  (JBMOD)  on  Card  1  selects  a  spectral  resolution 
of  5  or  20  cm-1.  When  using  the  BMOD  option,  an  external  tape  or  disc  file 
containing  the  band  model  parameters  in  binary  format  is  required  for  program 
execution. 
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Several  changes  have  been  made  to  the  L0VTRAN5  common  blocks.  The 
new  Input  parameter  JBMOD  has  been  added  to  common  /CARD1/ ,  because  It  is 
one  of  the  input  parameters  on  Card  1.  Additionally,  a  new  common  block, 

/CARD4/,  has  been  added  to  the  main  program  LOWEM  and  to  subroutines  BMDATA 
and  LIB.  These  subroutines  need  to  know  whether  an  additional  LOWTRAN  case 
is  being  calculated.  The  common  block,  /BMDCOM/,  is  shared  by  BMDATA  and 
BMOD.  It  contains  variables  used  in  the  band  model  calculations.  Addi¬ 
tionally,  the  pressure,  PRES (68) ,  has  been  added  to  blank  common. 

Several  modifications  were  necessary  in  the  calculation  of  the  absorber 
amounts  for  H^O,  the  UMIX  gases  and  0^.  In  LOWTRAN,  the  equivalent  horizontal 
path  parameters  (EH),  which  are  defined  as  the  equivalent  absorber  density 
for  a  1  km  horizontal  path  at  each  altitude,  are  defined  as  the  product  of  the 
actual  absorber  densities  and  an  empirical  scaling  law  which  approximates 
the  effects  of  altitude  on  the  curve-of-growth.  Since  BMOD  uses  the  unsealed 
absorber  density  for  these  species,  they  are  calculated  in  subroutine  HPROF  and 
stored  in  the  EH  array  in  place  of  the  scaled  absorber  densities.  In  a  regular 
L0WTRAN5  calculation,  the  array  WPATH(i)  calculated  in  subroutine  PATH  stores 
the  equivalent  absorber  density  for  the  total  path  from  the  observer  through 
the  i’th  layer.  Since  BMOD  uses  the  Curtis-Godson  approximation  to  calculate 
an  equivalent  optical  depth,  the  incremental  absorber  density  for  the  path  through 
each  layer  is  needed  and  is  stored  in  WPATH.  Additionally,  the  mean  pressure  for 
each  layer  is  calculated  in  subroutine  PATH  and  stored  in  blank  common  as  PRES. 

It  should  be  noted  that  the  mean  pressure  and  temperature  of  the  layer  in  which 
HI  (or  H 2)  fall  is  used  by  BMOD  and  not  the  mean  pressure  between  HI  (or  H2) 
and  the  layer  boundary.  This  can  lead  to  a  small  Interpolation  error  in  the  band 
model  coefficients  but  has  little  impact  on  the  calculated  transmlttances. 

The  Interface  between  the  regular  L0WTRAN5  and  the  BMOD  option  is  made  through 
subroutine  calls  made  in  subroutine  TRANS.  The  one  call  to  BMDATA  reads  the 
binary  file  header,  skips  over  the  wavenumber  blocks  to  the  first  wavenumber  of 
the  calculation  and  calculates  wavenumber- independent  quantities.  The  calls  to 
subroutine  BMOD  are  made  once  for  each  wavenumber  and  then  additionally  in  the  'loop 
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over  atmospheric  layers  that  calculates  the  molecular  transmittance.  On  the  first 
call,  BMOD  checks  for  the  next  read  and  sets  up  the  calculation  for  the  subsequent 
loop  over  layers;  the  atmospheric  transmittance  is  calculated  at  5  cm-1  spectral 
resolution  in  the  second  call.  The  approximately  forty  lines  in  TRANS,  which 
calculate  the  ^0,  UMIX,  and  03  transmittance  at  20  cm  *  resolution  are  skipped. 

3.1.1  Subroutine  BMDATA 

Subroutine  BMDATA  is  called  once  each  calculation  from  line  TRA  *313  in 
TRANS.  This  subroutine  makes  the  Initial  binary  file  read  and  calculates  wave¬ 
number-independent  quantitites  for  subsequent  use  by  subroutine  BMOD. 

After  reading  the  file  header  BMDATA  checks  the  wavenumber  range 
requested  by  the  user  to  see  if  it  falls  within  the  range  in  the  file.  If 
the  requested  interval  is  totally  outside  of  the  band  model  parameter  range, 
the  program  stops  with  an  error  message*  However,  if  the  requested  wave- 
number  interval  is  only  partially  outside  of  the  allowed  range,  the  program 
readjusts  the  upper  and/or  lower  wavenumbers  to  the  file's  values  and  pro¬ 
ceeds  with  the  calculation.  The  next  read  skips  over  wavenumber  blocks 
in  the  file  until  it  reaches  the  wavenumber  block  containing  VI,  the  initial 
wavenumber. 

If  the  option  IXY  ■  1  is  used,  the  next  calculation  has  the  same  atmos¬ 
pheric  and  path  parameters  but  a  new  wavenumber  range.  In  this  case,  the 
call  to  BMDATA  only  rewinds  the  file  and  performs  the  initial  reads.  The 
common  block  /CARD4/  was  added  to  pass  the  value  of  IXY  to  BMDATA. 

When  using  the  BMOD  option,  the  array  WPATH  contains  the  incremental 
optical  depths  for  each  layer.  However,  WPATH  is  not  calculated  by  subroutine 
PATH  when  the  path  lies  completely  within  one  atmospheric  layer,  so  it  must  be 
specified  in  subroutine  BMDATA  for  use  by  subroutine  BMOD.  Next,  the  absorber 
densities  (WPATH)  are  converted  to  the  units  of  cm-amagats  to  be  consistent  with 
the  units  of  the  band  model  parameters.  The  absorber  density  conversion  factors 
from  the  regular  L0WTRAN5  units  to  those  used  in  L0WTRAN5  (BMOD)  are: 


■. .  ?•  .a-  vr-i. 
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SPECIES 

L0WTRAN5 

L0WTRAN5 

(BMOD) 

h2o 

1  gm/cm^ 

- 

1.25 

x  10^  cm 
x  10^  cm 

amagat 

Umix  Gases 

1  km 

m 

1.0 

amagat 

1  cm  amagat 

m 

1 

cm 

amagat 

where  1  amagat  ■  1  atm  at  STP.  finally,  several  wavenumber  Independent  quan¬ 
tities  for  each  layer  are  calculated  in  BMDATA  and  stored  in  the  appropriate 
arrays  for  later  use  by  BMOD.  These  are,  V  T  ,  the  pressure  normalized  to  one 
atmosphere  (P/Pq),  and  the  temperature  indices  for  interpolation  of  the  band 
model  parameters. 


3.1.2  Subroutine  BMOD 

Subroutine  BMOD  calculates  the  transmittance  using  the  statistical  band  model 
described  in  subsection  2.1.  Its  initial  call  is  made  once  every  wavenumber 
from  TRANS  (line  TRA*1283),  and  subsequent  calls  are  made  for  each  layer 
to  calculate  the  transmittance  from  line  TRA*1394.  On  the  first  call  BMOD 
checks  to  see  if  the  next  block  of  band  model  parameters  needs  to  be  read 
(IW  is  the  counting  variable)  and  then  zeros  out  quantities  for  the  trans¬ 
mittance  calculations.  On  the  subsequent  call(s),  BMOD  calculates  the 
total  optical  depth  and  transmittance  for  each  species.  The  continuum  con¬ 
tribution  due  to  tails  of  H^O  and  CO^  lines  originating  outside  the  5  cm  1 
interval  are  included  in  the  calculation.  BMOD  returns  the  transmittance  for 
each  species  and  required  path  to  TRANS.  The  transmlttances  are  stored  in  the 
regular  L0WTRAN5  transmittance  array  (TX) . 

The  call(s)  made  by  TRANS  to  BMOD  for  calculating  the  transmittance 
is  Imbedded  in  a  loop  over  atmospheric  layers.  When  only  transmittance  is 
calculated,  this  DO- loop  in  TRANS  consists  of  one  pass.  When  atmospheric 
radiation  is  calculated,  the  TRANS  loop  is  over  all  layers,  because  the 
radiation  depends  on  the  incremental  change  in  transmittance  for  each  layer. 

The  Curtis-Godson  approximation  for  the  statistical  band  model  also  requires 
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che  contribution  from  each  layer  for  transmittance  calculations.  In 
keeping  with  the  philosophy  of  minimizing  changes  to  the  basic  L0WTRAN5 
program,  this  layer  loop  is  done  in  BMOD  for  transmittance-only  calculations 
and  in  TRAMS  for  radiation  calculations.  Thus,  the  layer  loop  in  BMOD  con¬ 
sists  of  just  one  pass  when  TRAMS  is  looping  over  all  layers  and  vice-versa. 
Subroutine  BMOD  determines  whether  the  loop  in  TRANS  is  over  one  layer  or  all 
layers  and  then  adjusts  its  own  loop  variable  accordingly  (line  BMO  570) . 

The  curve-of-growth  used  in  the  statistical  model  is  based  on  the 
equivalent  width  of  a  single  average  line  in  an  interval.  The  equivalent 
width  is  calculated  by  subroutine  EW1DTH  using  a  Voigt  lineshape  to  combine 
the  Doppler  and  Lorentz  lineshapes.  The  Curtis-Godson  approximation  is  used 
to  calculate  the  Lorentz  halfwidth  (SI),  Doppler  halfwidth  (S2)  and  line 
density  (S3)  for  the  equivalent  homogeneous  path  (see  Eqs.  (8)  and  (9)). 

The  effective  number  of  lines  is  calculated  from  Eq.  (11). 

In  addition  to  the  molecular  contributions  from  lines  within  each  5  cm-1 
spectral  interval,  contributions  from  tails  of  H20  and  C02  lines  external  to 
that  interval  are  also  included.  Since  these  tails  have  a  smooth  spectral 
structure,  they  form  a  continuum  component,  and  Eq.  (12)  is  used  to  calcu¬ 
late  the  transmittance.  Only  the  C02  tails  are  considered  in  the  UMIX  gases. 

The  tail  contributions  and  the  molecular  components  are  combined  (multiplied 
together)  and  stored  in  the  matrix  TX.  These  values  for  the  transmittance 
are  then  used  by  subroutine  TRAMS  in  its  calculation  of  the  total  atmospheric 
transmittance  and  radiation. 

3.1.3  Subroutine  CALC 

CALC  if  called  by  subroutine  BMOD  (line  BMO  720)  to  determine  the  band  model 
parameters  for  arbitrary  temperatures.  The  tabulated  band  model  parameters 
are  linearly  interpolated  over  temperature  for  each  layer.  If  the  atmospheric 
temperature  is  outside  of  the  temperature  range  of  the  tabulated  parameters, 
the  entry  for  either  the  lowest  or  highest  temperature  is  returned. 
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3.1.4  Subroutine  EWIDTH 


EWIDTH  Is  called  by  subroutine  BMOD  (line  BMO  980)  to  calculate  the  equiv¬ 
alent  width  of  a  single  average  line  for  the  5  cm"  '  interval.  As  discussed  in 
subsection  2.1,  the  Voigt  lineshape  is  numerically  integrated  over  the 
full  interval  using  Eqs.  (4)  to  (7).  When  the  optical  depth  at  the  line 
center  is  less  than  EMIN/r  Beer's  lav  is  used.  Otherwise  EWIDTH  compares 
the  relative  values  of  the  Doppler  and  Lorentz  halfwidths  and  selects 
the  proper  formula  for  the  numerical  integration. 

Several  numerical  approximations  are  used  in  calculating  the  equivalent 

(18) 

width.  Equation  (4b)  is  the  real  part  of  the  complex  error  function v  J 
and  is  calculated  in  subroutine  CPF12.  The  region  out  to  three  halfwldths 
is  calculated  by  using  a  linear  approximation  for  Eq.  (4)  in  the  integration 
interval.  From  a  study  of  various  combinations  for  the  number  of  integration 
intervals  for  each  halfvidth  (ISTEP)  and  the  number  of  halfwldths  from  the 
line  center  (NALF),  integrating  out  to  three  halfwldths  in  six  steps  was 
found  to  represent  a  reasonable  trade-off  between  numerical  accuracy  and 
execution  time.  The  region  beyond  three  halfwidths  of  the  line  center  is 
calculated  using  Eq.  (6). 


3.1.5  Subroutine  ERFU 

ERFU  is  used  by  EWIDTH  (line  EWI  760)  to  calculate  the  error  function 
as  part  of  the  evaluation  of  Eq.  (6).  A  polynomial  approximation  which  is 
accurate  to  better  than  2.5  x  10  ^  is  used.^®^ 

3.1.6  Subroutine  CPF 12 

CPF12  is  called  by  EWIDTH  (line  EWI  560)  to  calculate  the  complex  error 
(18) 

functionv  J  and  its  first  derivative.  The  real  part  is  Identical  to  Eq.  (4b), 
and  the  first  derivative  is  used  to  approximate  its  irequency  dependence  when 
performing  the  integration  of  Eq,  (4a).  The  complex  error  function  subroutine. 
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which  was  developed  by  J.  Humlicek,  is  based  on  a  12' th  order  Hermite 
polynomial  approximation.  We  investigated  using  only  an  8’th  order  approxima¬ 
tion,  but  the  results  were  not  sufficiently  accurate. 


3.2  Data  Tape  for  the  Band  Model  Parameters 

The  tabulated  band  model  parameters  are  stored  in  an  external  file.  The 
file  has  approximately  23,000  entries.  It  contains  the  S/d  and  1/d  parameters 
for  five  temperatures  plus  the  average  linewidth  and  molecular  weight  for  each 
species  at  5  cm-*  increments.  The  four  species  stored  in  the  file  are  HjO,  the 
UMIX  gases,  0^,  and  the  HjO  and  C0£  line  wings.  The  data  for  the  four  species 
are  blocked  in  10G  cm-*  increments  (20  wavenumber  points)  for  the  wavenumber  range 
from  400  cm  *  to  9990  cm  *.  The  tape  is  delivered  with  the  data  written  in  for¬ 
matted  form  (120  characters/line).  However,  a  binary  file  is  expected  by  L0KTRAN5 
because  of  the  significant  difference  in  the  execution  speed.  Conversion  of  the 
formatted  file  to  binary  format  on  the  user’s  system  is  discussed  further  in 
Appendix  F,  and  a  sample  program  listing  is  in  Appendix  G. 

3.3  Optional  Changes 

The  optional  changes  to  the  coding  are  modifications  which  either  increase 
the  code's  usefulness  or  make  it  more  compatible  with  other  computers  (e.g., 

CDC,  UNIVAC,  DEC,  IBM,  Honeywell ,  etc.).  These  changes  are  indicated  by  a 
colon  and  can  easily  be  ignored  by  the  user.  If  the  user  wishes  to  just 
Implement  the  BM0D  option  on  his  already  operational  version  of  L0WTRAN5, 
only  the  BMDATA,  BM0D,  CALC,  EWIDTH,  ERFU,  and  CPF2  subroutines  need  to  be 
added  (though  this  procedure  is  not  recommended) .  Making  the  changes  indicated 
by  asterisks  in  the  program  and  preparing  the  binary  tape  will  complete  the 
implementation.  The  optional  changes  in  this  version  of  L0WTRAN5  and  their 
motivation  are  described  below. 
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3.3.1  Slit  Function  and  Plotting  Package 

The  Print/Plot  Package  was  developed  at  Aerodyne  Research,  Inc.  £or  use 
with  the  L0WTRAN5  computer  code  on  its  PRIME  400  system.  A  detailed  des¬ 
cription  is  given  in  Appendix  A;  the  input  parameters  are  described  In  Section  4. 

The  slit  function  allows  the  user  to  degrade  the  5  cm”*  calculations  to 
a  lower  spectral  resolution.  The  slit  function  is  defined  by  specifying  the 
weighting  factors  for  up  to  eight  wavenumber  points.  The  routine  is  self- 
normalizing  so  the  user  can  specify  arbitrary  values  for  the  weights  and 
wavenumber  increments.  The  results  are  presented  in  tabular  form  with  each 
transmittance  or  radiation  value  being  printed  twice.  The  first  tabulation 
has  two  significant  figures  for  a  quick  scan  of  the  results,  and  the 
second  one  contains  five  significant  figures.* 

The  plot  package  allows  the  user  to  plot  results  as  part  of  the  calcula¬ 
tion.  As  a  minimum  the  user  only  needs  to  specify  the  title  and  the  dimensions 
of  the  plots.  However,  he  can  specify  other  parameters  such  as  the  wavenumber 
interval  and  the  interval  at  which  the  transmittance  or  radiation  are  presented. 
Usually  the  print/plot  package  will  make  its  own  selection.  The  MODEL  ■>  10 
option  can  be  used  to  obtain  multiple  plots  from  the  same  calculation.  For 
example,  when  using  a  slit  function  the  degraded  results  can  be  calculated 
and  plotted  after  the  undegraded  results  are  plotted. 

3.3.2  Blackbody  Source  Term  at  H2 

A  blackbody  radiation  source  at  H2  is  always  Included  in  LOWTRAN5  for 
look-down  paths  when  H2  falls  within  the  first  layer.  The  optional  change 
allows  a  blackbody  source  term  to  be  included  for  arbitrary  H2.  Radiation 
calculations  with  no  source  term  are  obtained  by  specifying  IEMISS  ■  1  (for 
the  radiation  calculation)  and  zero  or  a  negative  temperature  for  TBOUND  (to 
remove  the  source  term). 


This  does  not  imply  that  the  calculated  results  have  this  accuracy. 
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3.3.3  Generalized  READ  and  WRITE  Statements 

The  RE AD  and  PRINT  statements  vere  generalized  to  provide  a  version  that 
can  be  easily  Implemented  on  the  lartest  number  of  FORTRAN  compilers.  The  unfor¬ 
matted  PRINT  statements  were  changed  to  WRITE  statements  with  the  addition  of  the 
logical  unit  associated  with  input.  The  READ  statements  that  did  not  refer¬ 
ence  FORTRAN  logical  units  were  modified  to  include  the  unit  number.  Unit 
numbers  are  indicated  by  integer  variables  so  that  their  assignments  may 
easily  be  changed. 


3.3.4  FORTRAN  Logical  Unit  and  File  Assignments 

Integer  variables  are  used  throughout  this  version  of  L0WTRAN5  for  the 
FORTRAN  logical  units  (FLUs)  in  all  program  I/O.  This  aids  in  implementing 
the  code  in  facilities  that  have  different  FLUs  default  values  for  particular 
devices.  Table  2  displays  the  variable  names  for  the  FLUs,  where  the 
variable  names  are  assigned  their  values,  and  the  value  and  file  type  asso¬ 
ciated  with  each  variable.  Changing  the  indicated  line  in  the  progrm  is  all 
that  is  necessary  to  change  the  FLU  assignment.  The  COMMON  blocks  DEVNUM  and 
PLTDEV  are  used  to  communicate  the  FLUs  from  program  module  to  program 
module . 

NIN,  NOUT  and  NSTOR  (FLUs  5,  6  and  7,  respectively)  have  their  same 
meaning  as  in  the  original  version  of  L0WTRAN5.  All  other  FLUs  have  been 
added  to  this  version.  NPLT  contains  the  same  transmittance  and  radiance 
values  that  are  written  to  NSTOR,  but  in  binary.  The  file  associated  with 
NPLT  is  used  as  input  to  the  Print /Plot  Package.  NTBL  is  associated  with  the 
input  binary  file  that  contains  the  band  model  parameters.  This  file  is  read 
by  subroutines  BMOD  and  BMDATA.  NSCR  is  associated  with  a  scratch  file  used 
by  the  Print/Plot  Package  to  store  and  retrieve  degraded  spectra.  NPLT  is 
the  FLU  associated  with  the  CALCOMP-type  plotting  device  (if  any)  on  the 
computer  system. 
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TABLE  2  -  FORTRAN  LOGICAL  UNIT  (FLU)  ASSIGNMENTS 


VARIABLE 

NAME 

ASSIGNED 

IN 

DESCRIPTION 

FLU 

ASSIGNMENT 

FILE 

TYPE 

NIN 

LOW: 1237 

INPUT  FILE 

5 

READ  ONLY 

NOUT 

LOW: 1238 

PRINTED  OUTPUT  FILE 

6 

WRITE  ONLY 

NSTOR* 

LOW: 1239 

SECONDARY  OUTPUT  FILE 

7 

WRITE  ONLY 

NPLT 

LOW: 123 A 

INFO  FOR  PRINT /PLOT 
PACKAGE 

9 

TEMPORARY 
READ /WRITE 

NTBL 

350 

BINARY-BAND  MODEL 
PARAMETERS 

12 

READ  ONLY 

NSCR 

LIB 

320 

SCRATCH  PAD  FOR 

PLOTTING 

11 

TEMPORARY 
READ /WRITE 

NPLTR 

LIB 

460 

CALCOMP-TYPE  PLOT 

DEVICE 

4 

WRITE  ONLY 

♦References  to  NSTOR  have  been  conmented  out. 


3.3.5  BLOCK  DATA  Restructure 

The  original  version  of  L0WTRAN5  contained  several  named  BLOCK  DATA  sub¬ 
programs.  Some  of  the  DATA  statements  in  the  BLOCK  DATA  modules  contain 
non-standard  ANSI  FORTRAN  syntax.  In  an  attempt  to  make  this  version  of 
LOWTRAN5  more  universal,  the  BLOCK  DATA  structure  was  changed. 

All  the  named  BLOCK  DATA  subprograms  were  concentrated  into  one  tin-named 
BLOCK  DATA  routine.  The  comnons  for  storing  the  Cl,  C2  and  C3  data  were  removed 
as  these  data  are  only  used  in  one  subroutine,  C1DTA,  C2DTA,  C3DTA,  respectively. 

Any  DATA  statements  with  "implied-do  loop”  syntax  were  changed  into  a 
standard  syntax.  In  order  to  keep  the  number  of  continuation  cards  to  less 
than  twenty,  some  arrays  were  added  and  placed  in  EQUIVALENCE  with  the  larger 
LCWTRAN5  arrays  in  the  DATA  statements. 
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H.  INPUT  INSTRUCTIONS 


< 


The  first  four  data  cards  are  identical  to  those  for  L0WTRAN5  with  the 


exception  of  the  addition  of  JBMOD  to  Card  1.  The  second  group  of  cards 
specifies  the  parameters  for  the  optional  Print/Plot  Package.  The  input 
parameters  are  given  in  Table  3.  For  completeness,  the  regular  L0WTBAN5 
input  cards  are  summarized  in  subsection  4.1.  More  detailed  information 
can  be  found  in  the  L0WTRAN5  User's  Manual . ^  Instructions  for  specifying 
the  Print/Plot  parameters  are  given  in  subsection  4.2. 


TABLE  3  -  L0WTRAN5  INPUT  DATA 


CARS 

NUMBER 


PARAMETERS 


MODEL,  MAZE,  TTTPE,  LED,  JP,  IM,  1113,  2F10.3,  213,  P11.3,  12 
Ml,  M2,  M3,  ML,  XZMISS.  RO, 


TBOUND,  ISEASK,  IVULCN,  VIS, 
JBMOD 


(IF  MODEL  -  7  AND  EM  -  1) 


1A  Z,  P,  T,  DP,  SB,  VH,  WO,  AHAZE, 
VIS1,  MAI,  I  SEAL,  IVUU 


3F10.3,  2F5.1,  3E10.3, 
F7.3,  311 


HI,  HZ,  ANCLE,  RANGE,  BETA 


7F10.3 


(REPLACES  CABS  2  WHEN  MOSEL  -0) 
HI,  P,  T,  DP,  RH,  WH,  WO,  RANGE 


3F10.3,  2F5.1,  2EI0.3,  FI0.3 


VI,  V2,  DV 


MSLT,  MPRT,  MPLT,  NS,  WIDTH, 
SHIFT 


412,  2X,  2F10.0 


(SLIT  FUNCTION  PARAMETERS) 


ZSS(I),  1  -  1,  NS 
SS(1),  I  •  1,  NS 


8F10.5 

8F10.5 


(PLOTTING  PARAMETERS) 

ZAZIS,  UNT,  ZEND,  DZT,  NMINX 
TAXIS,  TINT,  TEND,  DTT,  NMINY 


4E10.4,  110 
4E10.4,  110 


i 


L0WTRAN5  Input  Parameter s 


The  instructions  end  user  options  given  here  are  the  same  as  the 
regular  L0WTRAN5  code  excepting  some  changes  to  Card  1.  The  changes  are 
the  MODEL  •  10  option,  use  o£  a  blackbody  source  for  arbitrary  H2,  and  the 
JBMOD  option.  The  user  is  directed  to  the  L0WTRAN5  User's  Manual^  for 
further  explanation,  especially  for  the  aerosol  models. 


CARD  1:  MODEL,  IHAZE,  ITYPE,  LEN,  JP,  IM,  Ml,  M2,  M3,  ML,  IEMISS,  RO, 
TBOUND,  ISEASN,  IVULCN,  VIS,  JBMOD 
(Format  1113,  2F10.3,  213,  F11.3,  12) 


MODEL  *  0  Meteorological  data  for  a  horizontal  path 

(Card  2'  follows) 

•  1  Tropical  atmosphere 

•  2  Mldlaticude  summer 

•  3  Midlatitude  winter 

•  4  Subarctic  summer 

»  5  Subarctic  winter 

-  6  1962  U.S.  Standard 

»  7  User  specified  atmospheric  profile 

•  10  Skip  to  plot  package  (Card  4  follows) . 

IHAZE  ■  0  No  aerosol  attenuation 

■  1  Rural  model,  23  km  visibility 

■  2  Rural  model,  5  km  visibility 

-  3  Maritime  model,  23  km  visibility 

■  4  Maritime  model,  5  km  visibility 

•  5  Urban  model,  5  km  visibility 

■  6  Tropospheric  model,  50  km  visibility 

■  7  User-defined  extinction  model 

■  8  F0G1  (advection  fog),  0.2  km  visibility 

-  9  F0G2  (radiation  fog),  0.5  km  visibility 
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ITYPE  - 

LEM 

JP 

IM  - 

Ml 

M2 

M3 

ML 

* 

IEMISS  - 

RO  - 

4 


Horizontal  ( constant -pr aa but a)  path 
Slant  path  f roa  B2  (aourct)  to  HI  (obaarvar) 

Slant  path  froa  apaca  (aourca)  to  HI  (obaarvar) 

Mozaal  operation 

Salaeta  the  long  dr  .rtvard  path  vhan  0  <  HMIM  <  12 

Mozaal  operation 
Suppraas  printed  output 

Subsequent  calculations  to  be  run  with  MODEL  -  7 
Radiosonde  data  to  be  read  in  initially 

Mozaal  operation 

>6  Selects  temperature  and  pressure  altitude  profile 
froa  the  appropriate  aodel  ataosphere 


I  Normal  operation 

-6  Selects  corresponding  water  vapor  aodel  profile 
I  Normal  operation 

.-6  Selects  corresponding  ozone  model  profile 


Normal  operation 

Number  of  user-specified  levels  (when  IM  ■  1) 
Transmittance  only 

Transmittance  and  radiation  calculated 


Earth  radius  appropriate  to  model  ataosphere 
(If  MODEL  ■  0  or  7,  the  midlatitude  value  of 
6371.23  tan  is  used) 

Oser-specif led  value 
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TBOOND  >  0  Blackbody  temperature  of  source  at  H2 

<0  Mo  blaekbody  source  at  H2  (only  atmospheric  radiance 
is  calculated) 

XSEASN  *  0  Season  determined  from  value  of  MODEL 
Spring-Summer  for  MODEL  ■  0,1, 2, 4, 6, 7 
Fall-Winter  for  MODEL  -  3,5 

•  1  Spring-Summer 

-  2  Fall-Winter 

TVULCN  *  0,1  Background  stratospheric  profile  and  extinction 

•  2  Moderate  volcanic  profile  and  aged  volcanic 

extinction 

•  3  High  volcanic  profile  and  fresh  volcanic 

extinction 

■  4  High  volcanic  profile  and  aged  volcanic  extinction 

•  5  Moderate  volcanic  profile  and  fresh  volcanic 

extinction 

VIS  j  0  Visibility  range  (km) 

•  0  Default  value  set  by  IHAZE 

JBMOD  «  0  Regular  L0WTRAN5 

■  1  5  cm  *  BMOD  option 

CARD(S)  1A:  (Insert  when  MODEL  ■  7) 

Z,  P,  T,  DP,  RH,  WH,  WO,  AHAZE,  VIS1,  IHA1,  ISEA1,  IVUL1 
(Format  3F10.3,  2F5.1,  3E10.1,  F7.3,  311) 

Z  -  Altitude  (km) 

P  •  Pressure  (mb) 

T  •  Ambient  temperature  (°C) 
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DP  “  Dew-point  temperature  (°C) 


RH  -  Relative  humidity  (X) 

_3 

WH  »  Water  vapor  density  (gm  m  ) 

WO  ■  Ozone  density  (go  a  ) 


AHAZE  ■  Aerosol  number  density  (normalized  by  the  user  to 

the  required  meteorological  range  using  the 
LOWTRAN  extinction  coefficients) 


VIS1  -  Meteorological  range  (km)  for  the  altitude,  Z 


IHA1  -  Aerosol  extinction  and  meteorological  range  control 

for  the  altitude,  Z 


ISEA1  ■  Aerosol  season  control  for  the  altitude,  Z 


IVUL1  -  Aerosol  profile  and  extinction  control  for  the 

altitude,  Z 

CARD  2:  HI,  H2,  ANGLE,  RANGE,  BETA 
(Format  7F10.3) 

HI  ■  Altitude  of  observer 


H2  ■  Altitude  of  path  start  (source  altitude  in 

radiation  calculations) 


CARD  2' :  (Replaces  Card  2  when  MODEL  ■  0) 

HI,  P,  T,  DP,  SH,  WH,  WO,  RANGE 
(Format  3F10.3,  2F5.1,  2E10.3,  F10.3) 


P,T,DP,RH, 

WH,W0 


RANGE  - 


Altitude  of  horizontal,  constant-pressure  path 


Defined  under  Card (a)  1A 


Path  length  (km) 


CARD  3:  VI,  V2,  DV 

(Format  7F10.3) 


Initial  wavenumber  (cm  ) 


Final  wavenumber  (can) 


Wavenumber  increment  (cm  ) 
(must  be  5  cm"*  when  JBMOD  •  1) 


CARD  4:  IXY  (Format  13) 


End  of  calculation 

Only  select  new  Cards  3  and  4-8 

Select  new  data  sequence 

Only  select  new  Cards  2  and  4-8 

Only  select  new  Cards  1  and  4-8 


The  new  data  cards  specified  by  IXY  are  read  after  the  Print/Plot 
control  cards  (Cards  5-8). 


4.2  Print/Plot  Parameters 


The  second  group  of  Input  cards  determines  the  options  for  the  Print/ 

Plot  Package.  The  LOWTRAN  transmittance  and  radiation  calculations  are 
written  to  an  external  file  (NPLT)  which  is  rewound  and  read  by  this  output 
section.  Multiple  calls  which  allow  specification  of  different  output  for¬ 
mats  for  the  same  calculation  are  obtained  by  repeating  the  calculation 
(IXY  ■  2  or  4)  and  then  setting  MODEL  ■  10  on  Card  1.  In  this  case,  the 
transmittance  calculations  are  skipped,  and  the  previous  results  can  be  printed 
and/or  plotted  in  a  different  format  (e.g.,  vs  wavenumber  and  then  vs  wave¬ 
length).  The  general  sequence  for  the  output  control  cards  is  as  follows: 


Card  5 
Card  6 
Cards  7A,B 
Cards  8A,B 


TITLE 

Print/Plot  Control  Parameters 
Slit  Function  Parameters 
Plotting  Parameters 


The  output  subroutines  are  executed  in  one  call  to  subroutine  LIB, 
which  is  made  just  after  reading  Card  4  of  the  regular  LOWTRAN 5  Input  data 
sequence. 

CARD  5:  TITLE 

(Format  20A4) 

This  title  is  printed  on  the  plots  and  tabulated  output. 

CARD  6:  MSLT,  MPRT,  MPLT,  WIDTH,  SHIFT 
(Format  412,  2X,  2F10.0) 
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MSLT 


0  Repeat  the  previous  ease  with  no  change  in 

parameters;  (cannot  have  MSLT  ■  0  on  the  first 
case) 

1  Use  the  calculated  results  directly 

2  Degrade  using  the  slit  function 


MPRT 


0  Do  not  print  any  results 

1  Print  transmittance  only 

2  Print  radiation  only 

3  Print  transmittance  and  radiation 


MPLT  -  0  Skip  plots 

«•  (1,-1)  Plot  transmittance  vs  (cm  ^ ,  ym) 

■  (2,-2)  Plot  radiance  vs  (cm_\  urn) 

-  (3,-3)  Plot  transmittance  and  radiance  vs  (cm~\  ym) 

NS  «  Number  of  (XSS,  SS)  points  to  define  the  slit 

function  (max.  8) 


WIDTH  ■  Total  width  of  the  slit  function  base  in  cm 


SHIFT  ■  Shift  (can  ^)  in  the  midpoint  of  the  slit  function 

for  the  next  calculational  point  in  degrading  the 
spectrum 


If  MSLT  “  0,  the  Print/Plot  parameters  are  used  from  the  previous  case; 
then  the  other  parameters  on  Card  6  are  zero,  and  Cards  7  and  8  are  skipped. 
If  no  slit  function  is  desired  (MSLT  ■  1)  or  if  the  previously  specified  slit 
function  is  repeated  (MSLT  -  0),  Cards  7A  and  7B  are  omitted.  MPLT  is  the 
control  variable  which  governs  the  number  and  type  of  plots. 
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CARD  7A:  XSS(I),  (I  -  1,  NS)  (Format  8F10.5) 


CARD  7B:  SS(I),  (I  -  1,  NS)  (Format  8F10.5) 

XSS  ■  Wavenumber  coordinates  of  slit  function  points 

SS  ■  Values  of  the  weighting  function  at  the  XSS  points 

An  example  of  a  generalized  slit  function  is  given  in  Fig.  22  for  an 

arbitrary  set  of  XSS  and  SS  values.  The  results  which  have  been  calculated 

at  the  resolution  specified  by  DV  (5  cm  ^  for  the  BMOD  option!)  are  degraded 

by  Integrating  over  the  slit  function.  Interpolation  between  the  user- 

specified  points  is  linear.  High  order  polynomial  interpolations  can  be 

used  by  changing  the  value  of  the  parameter  NDEG  in  Subroutine  GEN.  The 

slit  function  is  self  normalizing,  so  arbitrary  values  of  SS  and  XSS  can  be 

used.  That  is,  the  span  of  the  slit  coordinate  points,  |XSS  -  XSS  .  |, 

max  min 

is  normalized  to  WIDTH,  and  the  area  of  the  weighting  function  points  over 
XSS  is  normalized  to  unity.  For  example,  a  triangular  slit  function,  which 
has  a  spectral  resolution  of  40  cm  *  (FWHM)  and,  whose  spectrum  is  calculated 
in  increments  of  10  cm  \  is  given  by: 

NS  -  3  XSS  -  -1.0,  0.0,  1.0 

WIDTH  -  80.  SS  -  0.0,  1.0,  0.0 

•  SHIFT  -  10. 

I 

CARD  8A:  XAXIS,  XINIT,  XEND,  DXT,  NMINX  (Format  4E10.4,  110) 

CARD  8B:  YAXIS,  YINIT,  YEND,  DYT,  NMINY  (Format  4E10.4,  110) 

(XAXIS,  YAXIS)  “  Length  of  (x-axis,  y-axis)  in  inches 
(XINIT,  YINIT)  ■  Value  of  (x,y)  at  the  origin  (optional) 

(XEND,  YEND)  ■  Upper  limits  of  (x,y)  (optional) 


xss 


mm 

n 

ID 

+1.0 

H 

Figure  22.  Example  of  the  Generalized  Slit  Function  for  a 
Simple  Triangular  Slit.  The  Values  of  XSS  and 
SS  are  Tabulated. 


(DXT,  DYT) 
(NMINX,  NMINY) 


(x,y)  units  between  major  tic  marks  (optional) 

Number  of  minor  tic  marks  between  the  major 
ones  (optional) 


Except  for  XAXIS  and  YAXIS,  which  determine  the  physical  dimensions  of 
the  graph,  the  plotting  variables  need  not  be  specified.  The  default  values 
are  determined  Internally.  For  example,  the  default  values  of  X1N1T  and 
XEND  are  VI  and  V2. 
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APPENDIX  A 


L0WTRAN5  PRINT/PLOT  PACKAGE 


A.l  INTRODUCTION 

A. 2  PLOTTER  SUBROUTINES 


ArX 


A.l  INTRODUCTION 


In  addition  to  the  5  an-*  option,  a  Print/Plot  Package  is  included 
with  this  version  of  L0WTRAN5.  Since  its  only  interface  with  the  main 
program  is  through  one  call  statement  in  the  main  program  and  four  writes 
to  FLU  NPLT  by  subroutine  TRANS,  the  user  has  the  option  whether  or  not  to 
use  this  additional  capability  with  no  Impact  on  the  rest  of  the  program. 

The  Print/Plot  Package  expands  the  output  capabilities  of  the  code  to 
allow  the  user  to: 


e  Spectrally  degrade  the  results  using  a  user-specified  slit 
function;  and 

e  Tabulate  the  calculated  transmittance  and/or  radiation  as  a 
function  of  wavenumber  or  wavelength;  and 

e  Generate  plots  on  the  user's  plotter. 


By  using  the  MODEL  •  10  option,  multiple  calls  to  the  Print/Plot  Package 
through  subroutine  LIB  can  be  made  so  that  the  results  from  a  single  calcula¬ 
tion  can  be  presented  in  different  formats  (undegraded  and  degraded  spectra, 
plots  vs.  wavenumber  and  vs.  wavelength,  etc.). 

The  Print/Plot  Package  consists  of  the  subroutines  listed  in  Table  A.l. 
The  first  six  subroutines  are  part  of  the  L0HTRAN5  program,  and  the  second 
eight  are  calls  to  the  plotter.  The  second  group  (or  a  suitable  modifica¬ 
tion  thereof)  must  be  furnished  by  the  user's  facility  as  part  of  its  plotting 
library.  The  plotter  subroutines  which  the  Print/Plot  Package  expects  the 
user  to  provide  are  described  in  Section  A. 2. 
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TABLE  A. 1 


PRINT/PLOT  SUBROUTINES 


NAME 

ARGUMENTS 

FUNCTION 

LOWTRAN5  SUBROUTINES  (PRINT/PLOT  PACKAGE) 

lib 

MSLTO,  LPLT 

CALLS  SLIT  FUNCTION 

SETS  UP  OUTPUT  AND  PLOTS 

ALL 

— 

PRINTS /PLOTS  UNDEGRADED 

SPECTRUM 

GEN 

WIDTH, SHIFT,XSS,SS, NS 

CALCULATES  SLIT  FUNCTION 

PROUT 

— 

PRINTS  OUTPUT  AND  PLOTS  CURVES 

WRTDAT 

N,X,Y 

SETS  UP  DATA  FOR  PROUT 

terp 

XC ,X , Y ,NDEG ,NPTS , IER 

PERFORMS  NEWTON'S  INTERPOLATION 
FOR  DISCRETE  DATA  POINTS 

PLOTTER  SUBROUTINES  (USER'S  INSTALLATION) 

PLOT 

X,Y,IPEN 

PLOTS  A  VECTOR/MOVES  PEN 

SYMBOL 

X,Y , HITE, ARRAY .THETA.NCHARS 

PLOTS  VECTORED  SYMBOLS 

NUMBER 

X,  Y  .HITE ,  RNUM ,  THETA.NDEC 

PLOTS  REAL  NUMBER 

LINE 

XARRAY , YARRAY ,NPTS , INC , LINCTL , 

PLOTS  LINE  FROM  SCALED 

ISYM 

ARRAYS 

AXIS 

X.Y, TITLE, NCHARS.AXLEN, THETA, 
RLEAST .DELTAV , DELTA! ,NMIN 

PLOTS  A  LABELED  AXIS 

INITP$ 

IPDEV , IEDEV 

INITIALIZES  PLOT  PACKAGE 

ENDPLT 

— 

TERMINATES  PLOTTING 

WHERE 

X.Y, FAC 

GIVES  PEN  COORDINATES 
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TABLE  A. 2  -  LOCATION  OF  CALLS  TO  EXTERNAL  PLOTTER 


SUBROUTINE 

NAME 

CALLING 

LOCATION 

FUNCTION 

INITPS 

LIB 

910 

INITIAL  CALL  TO  THE  PLOTTER 

PLOT 

LIB 

920 

MOVES  PEN  TO  THE  ORIGIN 

PLOT 

LIB 

1280 

RESETS  ORIGIN  FOR  NEXT  PLOT 

ENDPLT 

LIB 

1340 

CLOSE  PLOTTING  FILES  BEFORE  STOPPING 

AXIS 

PRO 

730 

DRAW  X-AXIS 

AXIS 

PRO 

740 

DRAW  SCALE  ON  TOP  AND  PRINT  TITLE 

AXIS 

PRO 

750 

DRAW  Y-AXIS 

AXIS 

PRO 

760 

DRAW  SCALE  ON  RIGHT-HAND  SIDE 

SYMBOL 

PRO 

780 

PRINTS  NORMALIZATION  LABEL 
(IF  PLOT  IS  RENORMALIZED) 

WHERE 

PRO 

790 

LOCATE  PEN 

NUMBER 

PRO 

810 

WRITE  EXPONENT  OF  RENORMALIZATION 

y 

PRO 

820 

LOCATE  PEN 

SYMBOL 

PRO 

830 

PRINT  LABEL 

LINE 

PRO 

1140 

PLOT  LINE 

A. 2  PLOTTER  SUBROUTINES 


The  plotter  library  used  at  Aerodyne  Research,  Inc.  is  a  modification  of 
DIPLOT.  Prime  DIPLOT  (Device  Independent  PLOT  Package)  is  designed  to  allow 
the  user  to  direct  his  plotter  output  to  the  plotter,  using  the  industry 
accepted  Calcomp  calling  sequences. 

SUBROUTINE  CALLING  SEQUENCES 

The  FORTRAN  subroutines  used  in  the  Print/Plot  Package  for  L0WTRAN5  are 
described  below.  All  linear  arguments  are  in  inches. 

Subroutine  PLOT  -  Basic  Pen  Movement  Control 

The  PLOT  subroutine  allows  the  user  to  draw  a  vector  or  move  the  pen 
from  one  point  to  another.  Optionally,  the  origin  may  be  reset  to  the  given 
X  and  Y  coordinates,  depending  on  the  value  of  the  pen  control  variable 
(IPEN) . 

Calling  Sequence: 

CALL  PLOT  (x,y,ipen) 

x,y  The  coordinates  to  which  the  pen  is  to  be  moved, 

relative  to  the  current  origin 

lpen  The  pen  control  variable,  set  as  follows: 

Value  Meaning 

2  lower  pen  and  move 

3  raise  pen  and  move 

-2  lower  pen,  move,  and  reset  origin  to 

given  x,y 

-3  raise  pen,  move,  and  reset  origin  to 

given  x,y 
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Subroutine  SYMBOL  -  Plots  Vectored  Symbols 


This  subroutine  will  plot  an  ASCII  character  string  as  vectored  symbols. 
The  full  ascii  character  set  is  supported,  including  the  26  lover  case  charac¬ 
ters.  Also,  it  is  possible  to  plot  one  of  the  10  centered  symbols  by  setting 
ARRAY  to  the  appropriate  number  (0-9)  and  setting  NCHARS  to  -1  or  -2. 

Calling  Sequence: 

CALL  SYMBOL  (x,y,hite, array, theta, nchars) 


*»y 

The  coordinates  of  the  lower  left-hand  corner  of  the 

first  character  to  be  plotted,  or  the  coordinates 
of  the  centered  symbol  if  NCHARS  is  -1  or  -2. 

hite 

Height  of  the  characters  to  be  plotted 

array 

ASCII  array  or  special  symbol  code 

theta 

The  angle  of  rotation 

nchars 

The  number  of  characters  to  be  plotted 

special  symbol  is  to  be  plotted: 

or,  if  a 

Value  Meaning 

-1  raise  pen  before  moving 

-2  lover  pen  before  moving,  thus  drawing  a 

part  of  the  line  or  curve 

Subroutine  SOMBER  -  Plots  a  Real  Number 

This  routine  will  plot  any  real  number  to  a  user-specified  number  of 
decimal  places.  Leading  zeroes  and  spaces  are  suppressed. 


Calling  Sequence: 

CALL  NUMBER  (x,y,hite,rnum,  theta, ndec) 

x,y  Coordinates  of  the  lower  left-hand  corner  of  the 

first  digit  to  be  plotted 

hite  Height  of  the  output  string 

mum  The  real  number  to  be  plotted 

theta  The  angle  of  rotation  of  the  string 

ndec  Number  of  decimal  places  to  be  plotted  as  follows: 

Value  Meaning 

>0  plot  number  to  ’ndec’  decimal  places 

0  plot  no  decimal  places,  but  do  plot  a 

decimal  point  (.) 

-1  plot  integer  part  only 

Subroutine  LINE  -  Plots  a  Line  from  Two  Arrays 

This  subroutine  will  plot  a  line  from  2  scaled  X  and  Y  arrays.  Optionally, 
the  plotted  line  may  consist  of  a  line  only,  a  line  with  centered  symbols  at 
user-specified  Intervals,  or  centered  symbols  only,  depending  on  the  line  con¬ 
trol  variable  (LINCTL) .  Note  that  this  line  has  been  scaled  by  subroutine 
PROUT,  and  the  two  extra  elements  are  added  to  the  end  of  the  data  array 
being  plotted.  The  first  element  represents  the  first  value  for  the  plot 
range,  and  the  second  element  represents  the  change  in  units  per  inch. 
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Calling  Sequence: 

CALL  LIME  (xarray,yarray,npts,inc,linctl,isym) 


xarray,yarray  The  two  arrays  used  to  plot  the  line; 

these  may  be  scaled  by  SCALE  before  use  by  LIME 

npts  Number  of  data  points  to  be  plotted 

inc  The  increment  of  the  subscript  for  consecutive 

elements  within  the  array 

llnctl  Line  plotting  control  variable,  set  as  follows: 


Value  Meaning 

0  line  is  drawn  connecting  points 

<0  symbol  is  drawn  at  each  IABS(linctl) 

'th  point;  no  line  is  drawn 

>0  symbol  is  drawn  at  each  (linctl)i’th 

point;  a  line  is  drawn  connecting  the 
points 

isym  The  number  of  the  special  symbol  to  be  drawn,  if  any 


Subroutine  AXIS  -  Plots  a  Labeled  Axis 

This  routine  will  plot  a  labeled  axis  with  user-specified  tic  mark 
variations,  labels,  and  length. 

Calling  Sequence: 

CALL  AXIS  (x,y, title, nchars.axlcn, theta, rleast,deltav,deltat,nmln) 
x,y  The  coordinates  of  the  left-hand  end  of  the  axis 

ASCII  title  of  the  axis 
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title 


nchars 


axlen 

theta 

rleast 


deltav 


deltat 

nmln 


Number  of  charactera  in  the  title  -  if  >0,  tic  marks, 
calibration,  and  title  will  appear  on  the  counter¬ 
clockwise  side  of  the  axis;  if  <0,  they  will  appear 
on  the  clockwise  side  of  the  axis;  nchars  should  be 
<0  for  X  axis,  >0  for  Y  axis 

Length  of  axis 

Angle  of  rotation  of  axis,  calibration,  and  title 

The  minimum  value  in  the  array  -  this  may  be  name 
of  the  first  extra  element  of  the  array  returned 
by  SCALE 

The  change  in  value  of  the  array  for  each  inch  to  be 
plotted  -  this  may  be  the  name  of  the  second  extra 
element  of  the  array  returned  by  SCALE 

The  change  in  value  of  the  array  between  plotted 
tic  marks 

The  number  of  minor  (uncalibrated)  tic  marks  between 
major  ones 


Subroutine  WHERE  -  Returns  Current  Pen  Position 

The  WHERE  subroutine  returns  the  current  pen  position  in  the  two  given 
variables,  thus  locating  a  "lost"  pen.  This  is  useful  in  determining  pen 
position  after  a  call  to  subroutine  SYMBOL. 

Calling  Sequence: 

CALL  WHERE  (x,y,fac) 

x,y  The  current  scaled  pen  position  relative  to  the  origin 


fac 


Current  factor 


Subroutine  IKITPS  -  Plot  Initialization 


This  routine  allows  the  program  to  specify  the  plot  and  error  devices. 
The  dimensions  of  the  plotter  bed  are  assumed  to  be  internal  so  they  are 
not  specified  in  the  call. 

Calling  Sequence: 

CALL  INITP$  (ipdev,  iedev) 

ipdev  Plot  device  number 

iedev  Error  device  number 

NOTE:  This  is  not  a  standard  Calcomp  call.  The  appropriate  initializa 
tion  routine  at  the  user's  facility  should  replace  this. 


Subroutine  ENDPLT  -  Plot  Termination 

This  subroutine  will  dump  any  points  in  the  buffer  and  close  any  plot 
or  error  files. 

Calling  Sequence: 

CALL  ENDPLT 


A-10 


APPENDIX  B 
FLOWCHARTS 
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SUBROUTINE  BMDATA 


|  IP  PAIH  WITHIN 
SINGLE  LAYER 


NO 


RETORN 


50  T" 


CONSISTENT  UNITS  FOR  OPTICAL  DEPTH 
CALCULATE  ID  -INDEPENDENT  QUANTITIES 
DETERMINE  LAYER  TEMP.  INDICES 


L. 


return 


B-2 


SUBROUTINE  BMOD  (Coot.) 


B-A 


SUBROUTINE  CALC 


INTERPOLATE  ON  TEMPERATURE  USING 
THE  DATA  FOR  JT  AND  JT-1 


SUBROUTINE  EWIDTH  (Cont.) 


SUBROUTINE  LIB 


READ 
TITLE 
AND 

rSLIT  FUNCTION i 
INFO 


'  BEAD 
TRANSMISSION 
AND 

RADIANCE  i 
FROM  NPLT 


STOVE  WAVENUMBER 
AND  TRANSMISSION 
OR  RADIANCE 
VALUE 


NUMBER  ^ 
IN  BLOCK 
EQUAL  360? 


CALCULATE 

SCALING 

PARAMETERS 


READ  A 
BLOCK  OF 
DATA  FROM 


h 


1 


2 


SUBROUTINE  WRTDAT 


1)  STORE  MAX  OF 
DEPENDENT  VARIABLE 

2)  ZERO  BLOCK 
COUNTER 


B-13 


SUBROUTINE  TERP 


B-14 


APPENDIX  C 

LIST  OF  VARIABLES 


C.l  NEW  SUBROUTINES 

C.2  COMMON  BLOCKS 


C-l 


C.l  NEW  SUBROUTINES 


-  SUBROUTINE  BMDATA  - 


IDV 

IK 

IT 

J 

JBLOCK 

JV 

K 

KSPEC 

N 

NV 

TT 

UNITS 

VA 

VB 


Frequency  Increment 
Loop  Counting  Variable  for  Layers 
Loop  Counting  Variable  for  Temperature 
Loop  Counting  Variable 

Number  of  Data  Blocks  for  the  Initial  Read 
Loop  Counting  Variable  for  Reading  the  Tape 
Loop  Counting  Variable  for  Species 
Number  of  Species  on  Data  Tape 
Loop  Counting  Variable  for  Temperature 
Number  of  Wavenumber  Entries  on  the  Tape 
Temperature 

Conversion  Factors  to  Units  of  cm  amagat 
Lowest  Frequency  on  Data  Tape 
Highest  Frequency  on  Data  Tape 
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SUBROUTINE  BMOD  - 


ABSM 

ACBAR 

ADBAR 

ANLINE 

DINV 

FAC1 

FAC2 

FAC3 

JT 

JV 

K 

KSPEC 

L 

LMAX 

IMIN 

N 

ODBAR 

51 

52 

53 

TRANS 

TT 

WSL 

xs 


Value  of  S/d  Returned  by  CALC 
Mean  Lorentz  Halfwidth  Tines  Line  Density 
Mean  Doppler  Halfwidth  Tines  Line  Density 
Number  of  Equivalent  Lines  in  an  Interval 
Line  Density  Parameter  (1/d) 

Incremental  Optical  Depth 
Constant  for  Doppler  Lineshape 

Constant  for  Collision  Curve  of  Growth  Calculation 

Index  for  Temperature  Interpolation  .of  Band  Model  Parameters 

Loop  Counting  Variable  for  Reading  the  Data  Tape 

Species  Loop  Counting  Variable 

Number  of  Species  on  Data  Tape 

Loop  Counting  Variable  for  Layers 

Upper  Limit  of  layer  Loop 

Lower  Limit  of  Layer  Loop 

Loop  Counting  Variable 

Mean  Value  of  the  Line  Density  (1/d) 

Summing  Variable  for  ACBAR 
Summing  Variable  for  ADBAR 
Summing  Variable  for  ODBAR 
Transmittance 
Temperature 

Equivalent  Width  of  a  Single  Line 
Optical  Depth 


C-3 


.mM 


-  SUBROUTINE  EWTDTH  - 


ACBAR 

ADBAR 

ALFC 

ALFD 

ALFMAX 

ASYMP 

Cl 

C2 

C3 

C4 

CDRAT 

DELW 

DELX 

DV 

EXP0 

EXP1 

FAC 

HALFDV 

ISTEP 

NALF 

NMAX 

ODBAR 

RAT 

RT2 

RTPI 

SUM 

TTRANS 

U1 

U2 


Path  Average  Collision  Linewidth  Tines  Line  Density 
Path  Average  Doppler  Linewidth  Times  Line  Density 
Path  Average  Collision  Linewidth 
Path  Average  Doppler  Linewidth 
Larger  of  ALFC  or  ALFD 

Asymptotic  Lorentz  Tail  Contribution  to  Equivalent  Width 

VTnF 

•Vln2/ir 


<Su/yd)C1 
Cl /ALFD 


Lower  Limit  of  RAT  for  Switching  to  Doppler  Limit 

Integration  Step  Size 

Nondlmensional  Integration  Step  Size 

Spectral  Resolution  of  Calculation 

Voigt  Contribution  to  Equivalent  Width  Integral 

First  Derivative  Voigt  Contribution  to  Equivalent  Width  Integral 

Intermediate  Calculation  Factor 

DV/2 


Determines  Integration  Step  Size 

Number  of  Halfwidths  to  Outer  Integration  Boundary 

Number  of  Integration  Points  from  Outer  Boundary  to  Line  Center 

Path  Average  Line  Density 

ALFC /ALFD 

VT 

VT 

Current  Value  of  Equivalent  Width  Integral 
Beer's  Law  Transmittance 

Variable  used  in  Calculation  of  Asymptotic  Tail  Contribution 
to  Equivalent  Width 

Same  as  for  U1 


SUBROUTINE  EWIDTH  (Cont.) 


WI 

WR 

WR1 

WSL 

X 

XMIN 

XS 

XSMAX 

XSMIN 

XSTAR 

Y 


Imaginary  Part  of  Complex  Error  Function 

Real  Part  of  Complex  Error  Function  (Voigt  Function) 

First  Derivative  of  WR 
Equivalent  Width 
Nondimensional  Frequency 

Outer  Boundary  for  Numerical  Integration  of  Equivalent  Width  Integral 

Used  for  Weak  and  Strong  Line  Limit  Checks 

Lower  Limit  for  Switching  to  Strong  Line  Limit 

Upper  Limit  for  Switching  to  Weak  Line  Limit 

Weak  Line  Optical  Depth 

V^VYd 
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-  SUBROUTINE  LIB  - 


BLANK 


JSLOT 


MPLTN 


MPRTN 


MSLTO 


SHIFT 

SHIFTN 


WIDTH 

WIDTHN 


4  Spaces  (Hollerith) 

Change  in  Y  Axis  Value  Per  Plotted  Major  Tic  Mark 
Do  Loop  Variable 

<0  For  Transmission,  >0  For  Radiance 
Axis  Annotation  Index 

Vector  of  Number  of  Characters  Per  Annotation  of  X  Axis 

Vector  of  Number  of  Characters  Per  Annotation  of  Y  Axis 

Stores  Current  MSLT 

Plot  Initial  Reaction  Flag 

Plot  Type 

Value  Input  as  Plot  Type 
Print  Type 

Value  Input  as  Print  Type 

Value  Input  as  Slit  Function  Type 

Last  Slit  Function  Type 

Number  of  Entries  Input  in  Slit  Function 

Value  Input  for  NS 

Flag  for  Reading  Plot  Input 

Flag  for  Reading  Print  Input 

Slit  Function  Shift 

Value  Input  for  SHIFT 

Weighting  Values  for  Slit  Function 

Total  Width  of  Slit  Function  in  cm  ^ 

Value  Input  for  WIDTH 
Upper  Limit  for  X  Axis 

Plot  Origin  on  Plotter  Bed  (X  Coordinate) 


SUBROUTINE  LIB  (Cont.) 


XSS  Wavenumber  Coordinate  for  Slit  Function 

XTIT  Array  of  X  Axis  Titles 

YEND  Upper  Limit  for  Y  Axis 

YINI  Input  Value  for  UNIT  of  Coanon/YBLOCK/ 

YORG  Plot  Origin  in  Plotter  Bed  (Y  Coordinate) 

YTIT  Array  of  Y  Axis  Titles 


-  SUBROUTINE  ALL  - 

DV  Wavenumber  Interval  for  Data  Stored  on  NPLT 

DVM  Double  Precision  Version  of  DV 

N  Number  of  Data  Points  Passed  to  WRTDAT 

V  Vector  That  Stores  Transmission  and  Radiance  Values 

XFF  Wavenumber  Counter 
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-  SUBROUTINE  GEN  - 


AREA 

DV 

DVM 

FAC 

FIRST 

I 

IER 

IS 

IX 

IXX 

J 

N 

NDEG 

NF 

NS 

S 

SHIFT 

SS 

SUM 

TERPV 

V 

WIDTH 

XC 

XF 

XFF 

XMID 

XS 

XSS 

XX 


Area  Calculated  Under  the  Silt  Function 

Wavenumber  Interval  for  Data  Stored  on  NFLT 

Double  Precision  Version  of  DV 

Wavenumber  Factor  for  Slit  Function  Points 

Logical  Variable  to  Indicate  the  Number  of  Passes  Through 
The  Routine 

Do  Loop  Variable 

Argument  of  TERP 

Slit  Function  Index 

Wavenumber  Counter 

First  Wavenumber  Index  in  Group 

Do  Loop  Variable 

Number  of  Degraded  Data  Points  Passed  to  WRTDAT 

Order  of  Interpolation  Performed  on  TERP 

Number  of  Undegraded  Wavenumber  Points  in  Block 

Number  of  Slit  Function  Points 

Scaled  Weighting  Values  for  the  Slit  Function 

The  Slit  Function  Shift  for  the  Next  Calculation  of  the 
Degraded  Spectrum 

Weighting  Values  for  the  Slit  Function 
Integrated  Slit  Function  Value 
Interpolated  Value 

Vector  that  Stores  Transmission  and  Radiance  Values 

Width  of  Slit  Function  in  Wavenumbers 

Centered  Slit  Function 

Wavenumber  of  Block  Beginning 

Wavenumber  Counter 

Wavenumber  Center  of  Slit 

Wavenumber  Coordinates  of  Slit  Function 

Unsealed  Wavenumber  Coordinates  of  Slit  Function 

Wavenumber  Counter  in  Block 
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SUBROUTINE  PR OUT  - 


DUMFAC 

FIRST 

I 

II 

DEXP 

II 

J 

K 

N 

N1 

NCOL 

NI 

NN 

NN3 

OUT 

TEXP 

TNORM1 

TNORM2 

VSX 

XEND 

XNORM 

XPT 

Y CHECK 

YNORM 

YPT 


Dumsy  Returned  Scale  Factor  From  WHERE 

Logical  Flag  Which  Indicates  the  First  Time  Through  the 
Routine 

Do  Loop  Index 

Data  Index  for  Print  Out 

Normal  Ratio  Exponent  for  Plotting 

Line  Number  for  Print  Out 

Do  Loop  Index 

Implied  Do  Loop  Index 

Number  of  Points  in  the  Data  Block 

Number  of  Points  in  the  Plotting  Block  of  Data 

Column  Number  for  Print  Out 

Number  of  Lines  to  Print 

End  Index  of  Print  Page 

Number  of  Lines  on  Print  Page 

Print  Our  Array 

Temporary  Exponent  Storage  for  Plot  Normalization 
Characters  Used  for  Normalization  Title 
TN0RM1  Part  2 

Wavenumber  Temporary  Storage 
End  of  X  Axis  Plot 

X  Coordinate  for  Normalization  Title 
X  Coordinate  for  Plotted  Point 
YMAX  Check  for  Normalization 
Y  Coordinate  for  Normalization  Title 
T  Coordinate  for  Plotted  Point 
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-  SUBROUTINE  WRTDAT  - 


Logical  Flag  for  Wavenumber  to  Frequency  Conversion 
Do  Loop  Index 

Number  of  Data  Points  in  X  and  Y 

Vector  of  Independent  Variables  (Wavenumber  or  Frequency) 
Vector  of  Dependent  Variables  (Transmission  or  Radiance) 
Temporary  Storage  of  Y(I) 


-  SUBROUTINE  TERP  - 

Temporary  Storage  of  Interpolation  Function 
High  Index  for  Interpolation  of  X  Vector 
Do  Loop  Index 

Temporary  Index  for  Interpolation  Calculation 

Interpolation,  Extrapolation  Flag 

Lower  Limit  for  Interpolation 

Low  Index  -1 

Range  Index 

Temporary  Index  for  Interpolation  Calculation 
Do  Loop  Index 

Low  Index  for  Interpolation  of  X  Vector 
Number  of  Points  Used  in  the  Interpolation 
Degree  of  Interpolating  Polynomial 
NDEG  +  1 

Number  of  Entries  in  X  and  Y 
Temporary  Interpolation  Value 
Vector  of  Independent  Variables 

Value  of  Independent  Variable  at  Which  the  Interpolated  Value 
For  the  Dependent  Variable  is  Desired 

Vector  of  Dependent  Variables 

Temporary  Storage  Vector  for  Intermediate  Results 
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C.2  COMMON  BLOCKS 


-  COMMON  /BMDCCM/  SD,  OD,  ZMWT,  ALF0,  VT,  JJ,  IW,  NTEMP,  TBAND  - 
ALF0  Molecular  Linedvidth  at  ST? 

IW  Counting  Variable  for  Frequencies  Within  a  Tape  Data  Block 

JJ  Indices  for  Temperature  Interpolation  of  BM  Parameters 

NTEMP  Number  of  Temperatures  for  Tabulated  BM  Parameters 

OD  Mean  Line  Density  (1/d) 

SD  Band  Model  Absorption  Parameter  (S/d) 

TBAND  Temperatures  for  Tabulated  BM  Parameters 

WT  Square  Root  of  Temperature 

ZMWT  Mean  Molecular  Height 


-  COMMON  /BMDCOM/  SD,  OD,  ZMWT,  ALF0,  WT,  JJ,  IW,  NTEMP,  TBAND 


ITYPE  Print/Plot  Type  -1  Transmission,  -2  Radiance 

ISLOT  Plot  Flag  -  >0  Plot,  <0  No  Plot 

NEWT  Units  Flag  -  >0  cm  ,  <0  Vim 

IPRT  Print  Flag  -  >0  Print,  <0  No  Print 


-  COMMON  /SETUP/  ITYPE,  ISLOT,  NEWT,  IPRT 

F  A  Storage  Vector  of  360  in  Length 


C-ll 


Y 

X 


ARRAY 


VS1 

VS2 


YMAX 


-  COMMON  /BLOCR2/Y.X  [OR  YY.XX  IN  PROUl]  - 


A  Storage  Vector  of  Dependent  Variables  for  Print/Plot  of 
363  in  Length 

A  Storage  Vector  of  Independent  Variables  for  Print/Plot  of 
363  in  Length 


-  COMMON  /BL0CK3 /ARRAY  [oR  Y  IN  PROUt]  - 
A  Storage  Vector  of  363  In  Length 


COIMON  /VS/  VS1,  VS2  - 


Lower  Bound  for  Spectral  Information  in  Current  Block 
Upper  Bound  for  Spectral  Information  in  Current  Block 


-  COMMON  /MAX? /YMAX  - 


Largest  Value  Written  on  NSCR  Used  for  Plot  Scaling 


-  COMMON  /PLTDEV/NSCR,  NPLTR  - 


NSCR 

NPLTR 


FORTRAN  Logical  Unit  for  the  Temporary  Storage  of  Degraded 
Spectra 

FORTRAN  Logical  Unit  for  the  CALCOMP-Type  Plotter 


-  COMMON  /XBLOCK/XTXTLE ,  XAXIS,  XINIT,  Y SCALE,  DXT,  NMINX  - 
/YBLOCK /YTITLE,  YAXIS,  Y1NIT,  YSCALE,  DYT,  NMINY 


XTITLE 

YTITLE 


Vectors  of  20  in  Length  Which  Store  the  Axes  Titles 


XAXIS 

YAXIS 


Axis  Length  in  Inches 


XINIT 

YINIT 


Starting  Value  for  the  Respective  Axis 


XSCALE  Change  in  Axis  Value  Per  Inch  for  the  X-Axis  and  Y-Axis 

YSCALE  Respectively 


DXT 

DYT 


Change  in  Axis  Value  Per  Plotted  Major  Tic  Mark 


NMINX  Number  of  Minor  Tic  Marks  (Between  Major  Tics)  for  Each 

NMINY  Axis 


-  COMMON  /PBLOCK /TITLE ,  I CHAR,  JCHAR,  KCHAR  - 


TITLE 

ICHAR 

JCHAR 

KCHAR 


A  Vector  of  20  In  Length  That  Stores  the  Print/Plot  Title 
Number  of  Characters  in  X-Axis  Annotation  (XTITLE) 

Number  of  Characters  in  Y-Axis  Annotation  (YTITLE) 

Number  of  Characters  in  TITLE 
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APPENDIX  D 


LISTING  OF  MODIFIED  L0KTRAN5 


Changes  required  to  implement  the  BMOD  option  are 
indicated  by  an  asterisk  before  the  line  number. 
The  optional  changes  are  indicated  by  a  colon. 
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PROGRAM  LOWEM(INPUT-128 , OUTPUT- 128, TAPE 6 -OUTPUT , 
*  TAPE11 .TAPE12 .TAPE 5 -INPUT) 


MODIFIED  FOR  5  CM-1  BAND  MODEL 
INCLUDES  AERODYNE  PLOT  PACKAGE 


OCTOBER  1980 


TAPE9,  LOW 
LOW 
LOW 
LOW 
LOW 
LOW 

*****************************************************A********A***^Qy 

LOWTRAN  1  NOV  79 

AUTHORS 
F.X.KNEIZYS 
E.  P.  SHETTLE 
L.  V.  ABREU 
J*  H •  CHETWYND  JR . 

J.E.A.  SELBY 
W.  0.  GALLERY 
R.  W.  FENN 
R.  A.  MCCLATCHEY 


AND/OR  RADIANCE 


PROGRAM  LOWTRAN  CALCULATES  THE  TRANSMITTANCE 
OF  THE  ATMOSPHERE 

FROM  350  CM-1  TO  40000  CM-1  (0.25  TO  28.57  MICRONS)  AT  20  CM-1 
SPECTRAL  RESOLUTION  ON  A  LINEAR  WAVENUMBER  SCALE. 

REFRACTION  AND  EARTH  CURVATURE  EFFECTS  ARE  INCLUDED.  ATMOSPHERELOW 
IS  LAYERED  IN  ONE  KM.  INTERVALS  BETWEEN  0  AND  25  KM. ,  5  KM.  INTER-LOW 
VALS  TO  50  KM.,  A  TWENTY  KM.  INTERVAL  TO  70  KM.,  AND  A  THIRTY  KM.  LOW 


LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 


INTERVAL  TO  100  KM. 


LOW 


LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 

******************************************************************L gw 

LOW 

THIS  VERSION  OF  L0WTRAN5  HAS  BEEN  MODIFIED  BY  AERODYNE  RESEARCH, 

TO  PERFORM  THE  CALCULATIONS  AT  A  SPECTRAL  RESOLUTION  OF  5  CM-1. 

THIS  WORK  WAS  SUPPORTED  BY  THE  NAVY  OPTICAL  SIGNATURES  PROGRAM, 

CHINA  LAKE,  CALIFORNIA 
AUTHORS 

L.  S.  BERNSTEIN 
D.  C.  ROBERTSON 
R.  HAIMES 


THE  FOLLOWING  CARDS  SHOULD  BE  KEYPUNCHED  BY  THE  USER 
AND  MAILED  TO:  F.X.KNEIZYS, AFGL/OPI.HANSCOM  AFB.MASS  01731 
THE  CARDS  WILL  BE  USED  TO  UPDATE  THE  AFGL  MALING  LIST 
AND  FOR  NOTIFICATION  TO  THE  USER  OF  ERRORS  IN  THE  CODE 


(USE  COLUMNS  21  TO  72) 
L0WT5  NAME 
L0WT5  COMPANY 
L0WT5  ADDRESS 


FOR  CALCULATIONS  AT  5  CM-1,  THE  USER  MUST  USE  AN  EXTERNAL  FILE 


LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 


*10 
*11 
*12 
*13 
:  14 
*15 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
*371 
*372 
*373 
*374 
*375 
*376 
*377 
*378 
*379 
*37A 
*37B 


D-2 


AD-A091  972  AERODYNE  RESEARCH  INC  BEDFORD  MA  CENTER  FOR  ELECTRO— ETC  F/G  4/1 
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(FILE  NO.  NTBL)  VHICH  HAS  THE  BAND  MODEL  PARAMETERS.  THE  5  CM-1  LOU 
BAND  MODEL  PARAMETERS  HAVE  BEEN  GENERATED  FROM  THE  AFCL  HI TRAN  LOW 

LINE  ATLAS  FOR  THESE  SEVER  ATMOSPHERIC  MOLECULES:  LOV 

H20,  CC2,  03,  CH4,  NO,  CO  AND  02.  LOU 

FOLLOWING  THE  LOWTFAN  FORMAT,  H20  &  03  ARE  CALCULATED  SEPARATELY,  LOW 
WHILE  THE  OTHERS  ARE  LUMPED  INTO  THE  UNIFORMLY  MIXED  GASES  (C02+)  LOV? 

LOV? 

**************************************************************  LOW 

LOV? 
LOV? 
LOV? 
LOV? 
LOW 
LOV? 


PROGRAM  ACTIVATED  BY  SUBMISSION  OF  FOUR  CARD  SEQUENCE  AS  FOLLOWS 


CARD  1  MODEL, IRAZE,ITYPE,LEN,JP,IM, Ml ,M2, M3, ML, IEMISS.RO, TBOUND, 

1 I SEASN , I VULCN , VI S , JBMOD 

F0RMAT(11I3,2F10.3,2I3,F11 .3,12) 

CARD  2  H1,H2, ANGLE, RANGE, BETA  F0RMAT(7F10.3)  LOV? 

CARD  3  VI,  V2,  DV  F0RMAT(7F10.3)  LOW 

CARD  4  IXY  F0PKATU3)  LOW 

*******  ADDITIONAL  INPUT  CARDS  FOR  THE  PRINT/PLOT  PACKAGE  *******  LOV? 


CARD  5  TITLE 

CARD  6  MSLT , MPRT , MPLT , NS , V’l DTH .SHIFT 
CARD  7 A  XSS 
CARD  7B  SS 

CARD  8A  XAXIS.XINIT.XEND.DXT.NMINX 
CARD  8B  YAXIS,YINIT,YEND,DYT,NMINY 


FORMAT(8F10.5) 
FORMAT(8F10.5) 
FORMAT(4E10.4,I10) 
FORMATC4E10.4.I10) 


FORMAT  (20A4)  LOV? 
FORMAT(4I2,2X,2F10.0)  LOW 

LOV? 
LOW 
LOU 
LOV? 
LOV? 

MODEL-1,2,3,4,5  OR  6  SELECTS  ONE  OF  THE  FOLLOWINC  MODEL  ATVOSFHERELOW 
TROPICAL, MIDLATITUDE  SUMMER , MIDLATITUDE  WINTER, SUBARCTIC  SUMMER,  LOW 
SUBARCTIC  WINTER, OR  THE  1962  U.S.  STANDARD  RESPECTIVELY  LOW 
MODEL- 10  SKIPS  DIRECTLY  TO  PLOTTING  PACKAGE  USING  OLD  NPLT  FILE  LOW 
MODEL-0  FOR  HOP.IZ.  PATH  WHEN  METEOROL.  DATA  USED\INSTEAD  OF  CARD  2L0W 
READ  Hl.P(MB)  ,T(DEG  C)  ,DEW  PT.  TEMP  (DEC  C).,ZREL  HUMIDITY, H20  DENSITLOW 
(GM.M-3) ,03  DENSITY (GM.M-3),  RANGE (KM)  WITH  FORMAT  429.  LOV? 
MODEL-7  WHEN  NEW  MODEL  ATMOSPHERE(E.G.  RADIOSONDE  DATA)  USED.  LOW 
DATA  CARDS  ARE  READ  IN  BETWEEN  CARDS  1  AND  2,  AND  SHOULD  CONTAINS  LOW 
ALTITUDE (KM.) .PRESSURE, TEMP, DEW  PT.TEMP.REL.  HUMIDITY, H20  DENSITY, LOW 
03  DENSITY, AEROSOL  NO.  DENSITY  ,VIS1 ,IHA1 ,ISEAl .IVULl  FORMATLOV? 
435  SEE  NSMDL  FOP  DETAILS. 

NOTE  THAT  EITHER  DEW  PT.  TEMP. OF  REL.  HUMIDITY  CAN  BE  USED. 


Ml, M2, M3,  ARE  USED  TO  CHANGE  TEMP.H20,  AND  03  ALTITUDE  PROFILES. 
I EMISS-0 -TRANSMISSION  MODE  /  IEMISS-l-EMISSION  MODE 
TBOUND -TEMPERATURE  OF  EARTH  IN  DEGREES  KELVIN 
IF  TBOUND  -  ZERO,  ASSUMES  AIR  TEMPERATURE  OF  MODEL  ATMOS. 

IF  IHAZE-0  NO  AEROSOL  EXTINCTION  IS  COMPUTED 
VIS  PARAMETEP  ON  CARD  1  OVERRIDES  DEFAULT  I HAZE  VALUE 
NOTE  EXPANSION  OF  I HAZE  PARAMETER 
I HAZE-1  RURAL-23KM 
I HAZE-2  RURAL-  5 KM 
I HAZE-3  MARITIME-23KM 
I HAZE-4  MARI TIME- 5KM 
I HAZE-5  URBAN- 5KM 
I HAZE-6  TROPOSPHERIC-50KM 


LOW 

LOW 

LOV? 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOV? 

LOW 

LOW 

LOV? 

LOW 

LOV? 

LOW 

LOV? 


*37C 
*37d 
*37e 
*37f 
*37C 
*3711 
*371 
*37j 
*37K 
380 
390 
400 
*410 
*420 
430 
440 
450 
:  45 1 
:452 
:453 
:454 
:455 
:456 
:457 
460 
470 
480 
490 
s  491 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
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IHAZE-7  USER  DEFINED 
IHA2E-8  F0G1  -  DEFAULT  VISIBILITY  -0.2KM 
I HAZE-9  FOC2  -  DEFAULT  VISIBILITY  -0.5KM 
VISIBILITY  PROFILES  (NEW  PARAMETER-I SEASN ) 

ISEASN-0  DEFAULTS  TO  SEASON  OF  MODEL 
I SEASN- 1  SPRING-SUMMER 
ISEASN-2  FALL-WINTER 
NEW  PARAMETER  -  IVULCN 

10-30KM  AEROSOL  TYPE/VIS  PROFILE 
IVULCN-0  DEFAULT  TO  STRATOSPHERIC  BACKGROUND 
IVULCN-1  STRATOSPHERIC  BACKGROUND 

IVULCN-2  AGED  VOLCANIC  TYPE/MODERATE  VOLCANIC  PROFILE 
IVULCN-3  FRESH  VOLCANIC  TYPE/HIGH  VOLCANIC  PROFILE 
IVULCN-4  AGED  VOLCANIC  TYPE/HIGH  VOLCANIC  PROFILE 
IVULCN-5  FRESH  VOLCANIC  TYPE /MODERATE  VOLCANIC  PROFILE 

I TYPE-1 ,2  OR  3  INDICATES  THE  TYPE  OF  ATMOSPHERIC  PATH 
ITYPE-3 .VERTICAL  OR  SLANT  PATH  TO  SPACE 
I TYPE-2 .VERTICAL  OR  SLANT  PATH  BETWEEN  TWO  ALTITUDES 
I TYPE-1 ,  CORRESPONDS  TO  A  HORIZONTAL  (CONSTANT  PRESSURE)  PATH 

JBMOD  -  0  DEFAULTS  TO  LOWTRAN5 

-  1  SELECTS  THE  5  CM-1  BAND  MODEL  OPTION 

HI -OBSERVER  ALTITUDE  (KM) 

H2-SOURCE  ALTITUDE  (KM) 

ANGLE-  ZENITH  ANGLE  AT  HI  (DEGREES) 

RANGE-PATH  LENGTH  (KM) 

BETA-EARTH  CENTRE  ANGLE 
VIS  -  VISUAL  RANGE  AT  SEA  LEVEL  (KM) 

(IF  I TYPE-1  READ  HI  AND  RANGE; IF  ITYPE-3  READ  HI  AND  ANGLE. 

IF  I TYPE-2  READ  HI  AND  TWO  OTHER  PARAMETERS  E.G.  H2  AND  ANGLE) 

Vl-INITIAL  FREQUENCY  (WAVENUMBER  CM-1  )  INTEGER  VALUE 
V2-FINAL  FREQUENCY (WAVENUMBER  CM-1  )  INTEGER  VALUE 
DV-  FREQUENCY  INTERVALS  AT  WHICH  TRANSMITTANCE  IS  PRINTED 
NOTE  DV  MUST  BE  A  MULTIPLE  OF  5  CM-1.  WHEN  JBMOD- 1 ,  DV  MUST 
BE  5CM-1.  USE  THE  SLIT  FUNCTION  TO  DEGRADE  THE  RESULTS. 

IXY-0  TO  END  DATA  .-1  FOR  NEW  V1,V2,DV  ONLY  ,  -2  TO  CONTINUE  I 
IXY-3  FOR  NEW  CARD  2  ONLY, -A  FOR  NEW  CARD  1  ONLY. 

MSLT-0  REPEAT  PREVIOUS  CASE  (SKIP  CARDS  6  TO  8),  -1  NO  SLIT  FU1 
(SKIP  CARDS  6A,6B),  -2  DEGRADE  USING  THE  SLIT  FUNCTION 
MPRT-0  DON'T  PRINT,  -1  PRINT  TRANS.  ONLY,  -2  PRINT  RADIANCE  ONLY,  LOW: 1103 
-3  PRINT  TRANS.  AND  RADIANCE 

MPLT-0  SKIP  PLOTS,  -1  PLOT  TRANS.  VS  CM-1,  -2  PLOT  RADIANCE, 

-3  PLOT  TRANS.  AND  RADIANCE,  —1,-2, -3  SAME  BUT  PLOT  VS  MICRON 
NS-NUMBER  OF  DEFINING  POINTS  (KSS,SS)  FOR  SLIT  FUNCTION 
WIDTH-WIDTH  OF  BASE  (CM-1);  SHIFT-INCREMENT  TO  NEXT  SLIT  FCN. 

XAXIS -LENGTH  OF  AXIS (INCHES);  (XINIT,XEND)-( FIRST, LAST)  X  POINTS 
DXT-MAJOR  TIC  MARK  INCREMENT 
NMINX-NO.  OF  MINOR  TICS  BETWEEN  MAJOR  ONES  LOW-.llOB 

YAXIS.YI NIT, TEND, DYT.NMINY-DITTO  FOR  THE  Y  AXIS.  LOW: HOC 
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840 
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**********************  IMPLEMENTATION  NOTE  ****************** 
LITERAL  ASSIGNMENTS  WILL  RAVE  TO  BE  CHANGED  FOR  MACHINES  that 
STORE  MORE  THAN  4  CHARACTERS  PER  SINGLE  PRECISION  VRD  (UNI VAC 
AND  CDC).  THE  DOUBLE  PRECISION  VARIABLES  AFFECTED  JtE: 

HZ , SEASN , VULCN, AHOL ,AH0L1 ,AH0L2 , AH0L3 
ADDITIONALLY,  SOME  LITERALS  FOR  THE  PLOT  PACKAGE  ARE  DESCRIBED 
AT  THE  TOP  OF  SUBROUTINE  LIB. 

DOUBLE  PRECISION  HZ, SEASN, VULCN 

COMMON  /CARD1/  MODEL, IHAZE,ITYPE,LEN,JP,IM, Ml ,M2,M3,ML,IEMISS,RO 
1  ,TBOUND , ISEASN , I VULCN , VIS , JBMOD 
COMMON  /CARD2/  HI, H2, ANGLE, RANGE, BETA, HMIN.RE 
COMMON  /CARD3/  Vl,V2,DV,AVW,CO,CW,W(15),E(15),CA,PI 
COMMON  /CARD4/  IXY 

COMMON  /CNTRL/  LENST,KMAX,M,IJ, J1 , J2,JMIN,JEXTRA,IL,IKMAX,NLL,NP1 
l,IFIND,NL,IKLO 

COMMON  /MDATA/  Z(34) ,P(7 ,34) ,T(7 ,34) ,WH(7 ,34) ,WO(7,34) 

*  ,SEASN(2) ,VULCN(5) ,VSB(9) ,HZ(15) ,HMIX(34) 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL 

COMMON  RELHUM(34) ,HSTOR(34) ,EH( 15,34 ) ,ICH(4) ,VH( 15) ,TX(15) 

COMMON  WLAY(34 , 15) ,WPATH(68 , 15) ,TBBY(68) .PRES (68) 

COMMON  ABSC(4,40) ,EXTC(4 ,40) ,VX2(40) 

SPECIFY  PLOT  CONTROL  PARAMETERS 
MSLTO  -  0 
LPLT  -  0 


IXY-0 

SET  UP  FILE  NUMBERS  FOR  I/O  PROCEDURES 

NTBL  (USED  BY  BMDATA  &  BMOD)  IS  DECLARED  IN  BMDATA. 

NSCR  (PLOTTING  SCRATCH  FILE)  IS  DECLARED  IN  LIB 
NPLTR  (PLOTTER  FILE  NO.)  IS  DECLARED  IN  LIB 
TO  USE  THE  NSTOR  OUTPUT  FILE,  REMOVE  THE  C  FROM  THESE  LINES: 

LOW  1239,2280-2310,2380  AND  TRA  2330,2420 
NIN  -  5 
NOUT  -  6 
NSTOR  -  7 
NPLT  -  9 
CALL  MDTA 
KMAX-15 

PI-2.0*ASIN(1.0) 

CA-PI/180. 

10  CONTINUE 
RE-6371.23 
IFIND-0 

JP  HE  0  SUPRESS  PRINT 

READ  (NIN, 105)  MODEL, IHAZE,ITYPE,LEN,JP,IM,M1,M2,M3,ML,IEMISS,R0, 
1TB0UND, ISEASN, IVULCN, VIS .JBMOD 
I EMISS-O -TRANSMISSION  MODE  /  IEMISS-1 -EMISSION  MODE 
IF  (IEMISS.EQ.1)  WRITE  (NOUT, 110) 

IF  (IEMISS.EQ.O)  WRITE  (NOUT, 115) 


'*LOW  1110 
L0W:1111 
•LOW: 11 12 
LOW: 1113 
L0W:1U4 
LOW: 11 15 
LOW: 1116 
LOW: 1117 
LOW: 1118 
L0W:1119 
LOW: 111A 
LOW  1120 
LOW*1130 
LOW  1140 
LOW  1150 
LOW* 1151 
LOW  1160 
LOW  1170 
LOW  1180 
LOW  1190 
LOW: 1191 
LOW  1200 
LOW*1210 
LOW  1220 
LOW: 1221 
LOW: 1222 
LOW: 1223 
LOW: 1223 
LOW: 1224 
LOW  1230 
LOW: 1231 
LOW: 1232 
LOW: 1233 
LOW: 1234 
LOW: 1235 
LOW: 1236 
LOW: 1237 
LOW: 1238 
LOW: 1239 
LOW: 123A 
LOW: 1240 
LOW  1250 
LOW  1260 
LOW  1270 
LOW  1280 
LOW  1290 
LOW  1300 
LOW  1310 
LOW: 1320 
LOW*1330 
LOW  1340 
LOW: 1350 
LOW: 1360 
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IF  (JBMOD.EQ.l)  WRITE (NOUT, 118)  LOW*1361 

LENST-LEN  LOW  1370 

WRITE (NOUT, 105)  MODEL, MAZE, ITYPE,LEN,JP,IM, Ml ,M2 ,M3 ,ML,IEKISS,RO  LOW:1380 
1 , TBOUND , ISEASN , IVULCN , VI S , JBMOD  LOW* 1390 

SKIP  TO  PLOT  PACXAGE  WHEN  MODEL- 10  LOW: 1391 

IP  ( MODEL. EQ. 10)  60  TO  77  LOW: 1392 

15  M-MODEL  LOW  1400 

IF((M.EQ.3.OR.M.EQ.5).AND.ISEASN.EQ.0)  ISEASN-2  LOW  1410 

IF  (VIS.LE.O.O.AND.IHAZE.GT.O)  VIS-VSB(IHAZE)  LOW  1420 

ICH(1 )-IHAZE  LOW  1430 

ICH(2)-6  LOW  1440 

ICH(3)«9+IVULCN  LOW  1450 

ICH(4)-15  LOW  1460 

IF  (ICH(I).LE.O)  ICH(1 )-l  LOW  1470 

IF  (ICH(3).LE.9)  ICH(3)-10  LOW  1480 

IF  (MODEL.EQ.l)  RE-6378.39  LOW  1490 

IF  (M0DEL.EQ.4)  RE-6356.91  LOW  1500 

IF  (M0DEL.EQ.5)  RE-6356.91  LOW  1510 

IF  (IHAZE.NE.7)  GO  TO  20  LOW  1520 

READ  (WIN, 200)  (DUMMY,EXTC(1 ,1) ,ABSC(1 ,1) ,1-1 ,40)  LOW: 1530 

20  IF  (RO.CT.O.O)  RE-RO  LOW  1540 

IF  (MODEL.EQ.7.AND.IM.NE.0)  60  TO  35  LOW  1550 

IF  (IXT.GT.3)  60  TO  65  LOW  1560 

IF  ( MODEL. EQ.O)  GO  TO  35  LOW  1570 

25  READ  (NIN,120)  HI ,H2, ANGLE, RANGE .BETA  LOW: 1580 

WRITE  (NOUT, 185)  HI ,H2, ANGLE, RANGE, BETA  LOW:1590 

X1-RE+H1  LOW  1600 

IF  (ITYPE.EQ.3)  GO  TO  40  LOW  1610 


IF  (ITYPE.EQ.l)  GO  TO  65 
X2-RE+H2 

IF  (RANGE. EQ.O.)  GO  TO  50 
WRITE  (NOUT.195)  HI ,H2, ANGLE, RANGE, BETA 
IF  ( H2 . EQ. 0.0. AND. ANGLE. NE. 0.0)  GO  TO  30 
ANGLE-AC0S(0.5*( (H2-H1 )*( 1 .+X2/X1 ) /RANGE -RANGE/X1 ))/CA 
GO  TO  60 

30  X2-SQRT( (X1/RANGE+RANGE/X1+2 .0*C0S(ANGLE*CA))*X1*RANGE) 
H2-X2-RE 
GO  TO  60 
35  CONTINUE 

IF  (ML.LE.O)  ML-1 
CALL  NSMDL 
IM-0 

IF  (MODEL.EQ.O)  GO  TO.  65 
NL-ML 


LOW  1620 
LOW  1630 
LOW  1640 
LOW: 1650 
LOW  1660 
LOW  1670 
LOW  1680 
LOW  1690 
LOW  1700 
LOW  1710 
LOW  1720 
LOW  1730 
LOW  1740 
LOW  1750 
LOW  1760 
LOW  1770 


NOTE  THAT  Z(I)  MAY  NOT  CORRESPOND  TO  THE  VALUES  GIVEN  FOR  STANDARDLOW  1780 

MODEL  ATMOSPHERES  LOW  1790 

IF  (IXY.GT.3)  GO  TO  65  LOW  1800 

GO  TO  25  LOW  1810 

40  IF  ( RANGE. GT. 0.0)  GO  TO  45  LOW  1820 

IF  (H2.GT.0.0.AND.H2.LT.H1)  IFIND-1  LOW  1830 

GO  TO  65  LOW  1840 

45  ITYFE-2  LOW  1850 

BETA-ACOS (0 .5*(RANGE*RANGE/ (XI *X2 )-X2/Xl-Xl /X2 ) ) /CA  LOW  1860 


ti 
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50  IF  (BETA.EQ.O.)  GO  TO  55  LOW  1870 

IFIND-1  LOW  1880 

BET-CA*BETA  LOW  1890 

X2-RE+H2  LOW  1900 

ANGLE-ATAN(X2*SIN(BET)/(X2*C0S(BET)-X1))/CA  LOW  1910 

RANGE-X2*SIN(BET)/SIN(ANGLE*CA)  LOW  1920 

BET-BETA  LOW  1930 

GO  TO  65  LOW  1940 

55  RANGE- (X2 /XI )**2-( SIN( ANGLE*CA) )**2  LOW  1950 

IF  ( RANGE. GE. 0.0)  RANGE-X1*(SQRT(RANGE)-ABS(C0S(ANGLE*CA)) )  LOW  i960 

60  IF  (ANGLE. NE.O. .OR. ANGLE. NE. 180.)  BET-ASIN(RANGE*SIN(ANGLE*CA)/X2)L0W  1970 
IF(ANGLE.LT.O.)  ANGLE-ANGLE+1 80 .  LOW  1980 

IF  (RANGE. LT.O.O)  RANGE— RANGE  LOW  1990 

BET-BET/ CA  LOW  2000 

WRITE  (NOUT.195)  HI ,H2, ANGLE, RANGE, BET  LOW:2010 

65  CONTINUE  LOW  2020 

IF  (IXY.LE.2)  READ  (NIN.120)  V1,V2,DV  LOW:2030 

IF  (IXY.LE.2)  WRITE  (N0UT,120)  V1,V2,DV  L0W:2040 

IF  (ITYPE.EQ. 1)  WRITE  (N0UT.125)  HI .RANGE  LOW:2050 

IF  (ITYPE.EQ. 2)  WRITE  (N0UT.130)  HI ,H2, ANGLE  LOW:2060 

IF  (ITYPE.EQ. 3)  WRITE  (N0UT.135)  HI, ANGLE  LOW-.2070 

IF  (MODEL. EQ.O)  M-7  LOW  2080 

IF  (VIS. GT. 0.0)  WRITE  (N0UT.175)  VIS  LOW:2090 

IF  (M.EQ.l)  WRITE  (N0UT.140)  MODEL  LOW:2100 

IF  (M.EQ.2)  WRITE  (N0UT.145)  MODEL  LOW:2110 

IF  (M.EQ.3)  WRITE  (N0UT.150)  MODEL  LOW: 2120 

IF  (M.EQ.4)  WRITE  (NOUT.155)  MODEL  LOW: 21 30 

IF  (M.EQ.5)  WRITE  (N0UT.165)  MODEL  L0W:2140 

IF  (M.EQ.6)  WRITE  (NOUT.160)  MODEL  LOW: 2150 

IF  (IHAZE.EQ.O)  WRITE  (NOUT.190)  LOW:2160 

IF  (IHAZE.NE.O)  WRITE  (N0UT.170)  IHAZE.HZ(IHAZE) ,VIS  LOW:2170 

IF  (ISEASN.EQ.O)  WRITE  (NOUT.205)  SEASN(l)  LOW:2180 

IF  (ISEASN.NE.O)  WRITE  (NOUT.205)  SEASN(ISEASN)  LOW:2190 

IF  (IVULCN.EQ.O)  WRITE  (NOUT.210)  VULCN(l)  L0W:2200 

IF  (IVULCN.NE.O)  WRITE  (NOUT.210)  VULCN(IVULCN)  LOW:2210 

AVW-10000./V1  LOW: 2220 

ALAM-10000./V2  LOW  2230 

WRITE  (N0UT.180)  VI ,V2,DV,ALAM,AVW  L0W:2240 

CALL  HPROF  LOW  2250 

r.Ai.i.  GEO  LOW  2260 

pat.t.  EXABIN  LOW  2270 

70  CONTINUE  LOW*2271 

CHECK  THAT  DV  -  5  CM-1  WHEN  JBMOD  -  1  LOW*2272 

IF  ((JBMOD. EQ.O)  .OR.  (DV.EQ.5.0))  GO  TO  72  LOW*2272 

WRITE  (NOUT,225)DV  LOW*2274 

STOP  LOW*2275 

72  CONTINUE  LOW*2276 

WRITE(NSTOR,105)MODEL,IHAZE,ITYPE,LEN,JP,IM,M1,M2,M3,ML,IEMISS,RO,LOW:2280 

1  TBOUND.ISEASN.IVULCN, VIS, JBMOD  L0W*2290 

WRITE (NSTOR, 120)  HI ,H2, ANGLE, RANGE, BETA  LOW:2300 

WRITE(NST0R,120)V1 ,V2,DV  L0W:2310 

IF  ((IEMISS.EQ.O)  .AND.  (JBMOD. EQ.O))  GO  TO  75  LOW*2320 

CALL  PATH  LOW  2330 
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IF  (IEMISS.EQ.O)  GO  TO  75 
WRITE  (NOUT.215) 

WRITE  (N0UT.220) 

75  CALL  TRANS 
77  READ  (NIN.105)  IXY 
CALL  PLOT  SUBROUTINES 
CALL  LIB(MSLTO.LPLT) 

END  FILE  NSTOR 

JEXTRA-0 

IFIND-0 

WRITE  (NOUT.105)  IXY 
IF  (IXY.EQ.O)  GO  TO  95 
GO  TO  (80,10,85,10,95),  IXY 
80  READ  (NIN,120)  V1,T2,DV 
AVW-10000./V1 
ALAM-10000./V2 

WRITE  (NOUT,180)  VI ,V2,DV,ALAM,AVW 
GO  TO  70 

85  IF  (IEMISS.EQ.l)  WRITE  (NOUT.llO) 
IF  (IEMISS.EQ.O)  WRITE  (N0UT.115) 
IF  ( MODEL. EQ.O)  GO  TO  35 
GO  TO  25 
95  STOP 


LOW*2331 
LOW: 2340 
LOW: 2350 
LOW  2360 
LOW: 2370 
LOW: 2371 
LOW: 2372 
LOW: 2380 
LOW  2390 
LOW  2400 
LOW:2410 
LOW  2420 
LOW  2430 
LOW: 2440 
LOW  2450 
LOW  2460 
LOW: 2470 
LOW  2480 
LOW: 2490 
LOW: 2500 
LOW  2510 
LOW  2520 
LOW  2530 


100  FORMAT  (3I3.6F11.4) 

105  FORMAT  (11I3,2F10.3,2I3,F11 .3,12) 

110  FORMAT  (47H1  PROGRAM  WILL  BE  EXECUTED  IN  THE  EMISSION  MODE) 

115  FORMAT  (51H1  PROGRAM  WILL  BE  EXECUTED  IN  THE  TRANSMISSION  MODE) 

118  FORMAT  (41H  THE  5CM-1  BAND  MODEL  OPTION  WILL  BE  USED) 

120  FORMAT  (7F10.3) 

125  FORMAT  (//10X.28H  HORIZONTAL  PATH,  ALTITUDE  -,F7.3,11H  KM, RANGE  -.LOW  2600 
1F7.3.3H  KM)  LOW  2610 

130  FORMAT  (//10X.50H  SLANT  PATH  BETWEEN  ALTITUDES  HI  AND  H2  WHERE  HI  LOW  2620 
1-,F7.3,8H  KM  H2  -.F7.3.18H  KM, ZENITH  ANGLE  -,F7.3,8H  DEGREES)  LOW  2630 
135  FORMAT  (//10X.39H  SLANT  PATH  TO  SPACE  FROM  ALTITUDE  HI  -,F7.3,19H  LOW  2640 


LOW  2540 
LOW  2550 
LOW*2560 
LOW  2570 
LOW  2580 
L0W*2581 
LOW  2590 


1KM,  ZENITH  ANGLE  -.F7.3.8H  DEGREES) 

140  FORMAT  (/20X,18H  MODEL  ATMOSPHERE  ,I1,11H 
145  FORMAT  (/20X.18H  MODEL  ATMOSPHERE  ,I1,21H 
150  FORMAT  (/20X.18H  MODEL  ATMOSPHERE  ,I1,21H 
155  FORMAT  (/20X.18H  MODEL  ATMOSPHERE  ,I1,21H 
160  FORMAT  (/20X.18H  MODEL  ATMOSPHERE  ,I1,21H 
165  FORMAT  (/20X.18H  MODEL  ATMOSPHERE 


TROPICAL) 

MIDLATITUDE  SUMMER) 
MIDLATITUDE  WINTER) 
SUB-ARCTIC  SUMMER  ) 
1962  US  STANDARD  ) 
SUB-ARCTIC  WINTER  ) 


LOW  2650 
LOW  2660 
LOW  2670 
LOW  2680 
LOW  2690 
LOW  2700 
LOW  2710 


,11 ,21H 

170  FORMAT  (/20X.15H  HAZE  MODEL  ,11, 3H  -  ,A10,8H  VIS-.F5.1 ,2HKM)L0W  2720 

175  FORMAT  (/25X.13HHAZE  MODEL  -.F5.1.29H  KM  VISUAL  RANGE  AT  SEA  LEVELOW  2730 
1L)  LOW  2740 

180  FORMAT  (/10X.21H  FREQUENCY  RANGE  VI-  ,F7.1,13H  CM-1  TO  V2-  ,F7.1,1L0W  2750 
14H  CM-1  FOR  DV  -,F6.1,9H  CM-1  (,F6.2,3H  -  ,F5.2,10H  MICRONS  ))  LOW  2760 
185  FORMAT  (10X.7F10.3)  LOW  2770 

190  FORMAT  (/20X.39HAEROSOL  SCATTERING  NOT  COMPUTED, IHAZE-O)  LOW  2780 

195  FORMAT  (10X,4H  Hl-,F7.3,6HKM,H2-,F7.3,9HKM,ANGLE-,F8.4,13HGEOM.  RALOW  2790 
INGE  -,F7.2,8HKM,BETA-,F8.5)  LOW  2800 

200  FORMAT  <4<F6.2,2F7.5))  LOW  2810 

205  FORMAT  (/20X.10H  SEASON  -  ,A13)  LOW  2820 
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210  FORMAT  (/20X.34H  VERTICAL  PROFILE  AEROSOL  MODEL  -  ,A16)  LOW  2830 

215  FORMAT  (1H1 , 50X,28HRADLANCE(VATTS/CM2-STER-XXX))  LOW  2840 

220  FORMAT  (30X,47HFR(CM-1)  WVL (MICRON)  PER  CM-1  PER  MICRON, 26HLOW  2850 
1  INTEGRAL  TRANS)  LOW  2860 

225  FORMAT  (20X, 10(1H*) .2X.38BWREN  USING  BAND  MODEL  OPTION  ( J1MOD-1 )  L0W*2861 

1  20H,  DV  MUST  BE  5.0!!  ,10(1H*)//20X,6HDV  -,F6.1,  LOW*2862 

2  27H - THEREFORE  PROGRAM  STOPS!)  LOW*2863 

END  LOW  2870 


non  o  n  n  n  n  n  n 


! 


SUBROUTINE  NSMDL  NSM 

NSM 

USED  FOR  USER  DEFINED  ATMOSPHERIC  MODELS  (MODEL-O  OR  7)  NSM 

DEFINES  ALTITUDE  DEPENDENT  VARIABLES  Z,P,T,WH,VO  AND  HAZE  NSM 

LOADS  HAZE  INTO  APPROFRATE  EH  LOCATION  NSM 

NSM 

DOUBLE  PRECISION  HZ, SEASN,VULCN,AHOL,AHOLl,AHOL2,AHOL3  NSM 

COMMON  /CARD1/  MODEL, IHAZE, ITYPE.LEN, JP,IM,M1 , M2, M3,ML,IEMISS,RO  NSM 
1  ,TBOUND , ISEASN , IVULCN , VIS , JBMOD  NSM 

COMMON  /CARD 2/  HI, H2, ANGLE, RANGE, BETA, HKIN, RE  NSM 

COMMON  /CARD3/  Vl,V2,DV,AVW,CO,CV,W(15),E(15),CA,PI  NSM 

COMMON  /CNTRL/  LENST,RMAX,M,IJ, J1 ,J2 , JMIN, JEXTRA,IL,IKMAX,NLL,NP1  NSM 
1 , IFIND.NL, IKLO  NSM 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),WH(7,34),WO(7,34)  NSM 

1  ,SEASN(2) ,VULCN(5) ,VSB(9) ,HZ(15) ,HMIX(34)  NSM 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL  NSM 

COMMON  RELHUM(34),HSTOR(34),EH(15,34),ICH(4),VH(15),TX(15)  NSM 

COMMON  WLAY(34,15),WPATH(68,15),TBBY(68),PRES(68)  NSM 

COMMON  ABSC(4,40),EXTC(4,40),VX2(40)  NSM 

F(A)-EXP( 18. 9766-14. 9595*A-2.43882*A*A)*A  NSM 

RV-4.6150E-3  NSM 

TO-273.15  NSM 

IC1-1  NSM 

N-7  NSM 

1F( IVULCN. LE.O)  IVULCN- 1  NSM 

IF(ISEASN.LE.O)  ISEASN-1  NSM 

FOR  MODEL  EQ  ZERO  NSM 

IHA1-0  NSM 

I SEA 1-0  NSM 

IVUL1-0  NSM 

VIS 1-0.  NSM 

AHAZE-O.  NSM 

END  OF  MODEL  ZERO  DEFAULT  NSM 

IF  (M.NE.O)  WRITE  (NOUT, 100)  NSM 

DO  65  K-l.ML  NSM 

AHOL-  8H  NSM 

AH0L1-  8H  NSM 

AH0L2-  8H  NSM 

AH0L3-  8H  NSM 

IF(M.EQ.O)  READ (NIN, 85)  Hl,P(7,l),TMP,DP,RH,WH(7,K),WO(7,K),RANGE  NSM 
IF(M.EQ.0)WRITE(NOUT,90)  HI ,P(7 ,1) ,TMP,DP,RH,WH(7 ,K) ,W0(7 ,K) ,RANGENSM 
IF  (M.GT.O)  READ  (NIN, 80)  Z(K),P(7,K),TMP,DP,RH,WH(7,K),WO(7,K),  NSM 
1  VIS1 ,IHA1 ,ISEA1 ,IVUL1  NSM 

IF  (M.EQ.O)  Z(K)-H1  NSM 

WRITE  (NOUT, 95)  Z(K),P(7,K),TMP,DP,RH,WH(7,K),W0(7,K),AHAZE,VIS1,  NSM 
1  IHA1 ,ISEA1 ,IVUL1  NSM 

IHAl  IS  I HAZE  FOR  THIS  LATER  NSM 

1SEA1  IS  ISEASN  FOR  THIS  LATER  NSM 

IVUL1  IS  IVULCN  FOR  THE  LATER  NSM 

IF(ISEAl.EQ.O)  ISEA1 -ISEASN  NSM 

IF(IHA1 .GT.0.0R.IVUL1 .GT.O)  GO  TO  10  NSM 

ITTAER-IHAZE  NSM 

IF  (Z(K) .GT.2.0)  ITTAER-6  NSM 


USED  FOR  USER  DEFINED  ATMOSPHERIC  MODELS  (MODEL-O  OR  7) 
DEFINES  ALTITUDE  DEPENDENT  VARIABLES  Z,F,T,WH,WO  AND  HAZE 
LOADS  HAZE  INTO  APPROFRATE  EH  LOCATION 


r 


1?  (Z(K) .GT.9.0)  ITTAER-IVULCN+9 

NSM 

520 

IF  (Z(K) .GT.30.)  ITTAER-15 

NSW 

530 

IHA1-IHAZE 

NSM 

540 

IVUL1-IVULCN 

NSM 

550 

GO  TO  15 

NSM 

560 

10 

IF( IVUL1 . GT . 0 )ITTAER-I VUL 1+9 

NSM 

570 

IF(IHAl.GT.O)  ITTAER-IHA1 

NSM 

580 

IF(ITTAER.GT.15)  ITTAER-15 

NSM 

590 

IF(IHAl.LE.O)  IHA1-IHAZE 

NSM 

600 

IF(IVOLl.LE.O)  IVUL1-IVULCN 

NSM 

610 

15  IF  (K.EQ.l)  GO  TO  20 

NSM 

620 

IF(N.EQ.7.AND.ITYAER.EQ.6.AND.Z(K).GT.2.0)  GO  TO  17 

NSM 

630 

IF  (ITTAER.EQ.ICH(ICl))  GO  TO  20 

•  NSM 

640 

17 

IC1-IC1+1 

NSM 

650 

N-IC1+10 

NSM 

660 

IF  (IC1.LE.4)  GO  TO  20 

NSM 

670 

IC1-4 

NSM 

680 

N-14 

NSM 

690 

ITYAER-ICH(IC1 ) 

NSM 

700 

20  ICH(IC1)-ITYA£R 

NSM 

710 

J-IFIX(Z(K)+1 .OE-6 Hi 

NSM 

720 

IF  (Z(K) .GE.25.0)  J-(Z(K)-25.0)/5.0+26. 

NSM 

730 

IF  (Z(K) .GE.50.0)  J-(Z(K)-50.0)/20.04-31. 

NSM 

740 

IF  (ZOO.GE.70.0)  J-(Z(K)-70.0)/30.04-32. 

NSM 

750 

IF  (J.GT.33)  J-33 

NSM 

760 

FAC-Z(K)-FL0AT(J-1 ) 

NSM 

770 

IF  (J.LT.26)  GO  TO  25 

NSM 

780 

FAC- ( Z(K)-5 . 0*FL0AT ( J-26 )-25 . ) /5 . 

NSM 

790 

IF  (J.GE.31)  FAC-(Z(K)-50.0)/20. 

NSM 

800 

IF  (J.GE.32)  FAC*(Z(K)-70.0)/30. 

NSM 

810 

IF  (FAC. GT. 1.0)  FAC-1.0 

NSM 

820 

25  L-J+l 

NSM 

830 

T(7  ,K)-TMP+T0 

NSM 

840 

IF  (M1.GT.0)  P(7,K)-P(M1,J)*(P(H1,L)/P(M1,J))**FAC 

NSM 

850 

IF  (M1.GT.0)  T(7tK)-T(Ml,J)*(T(Ml,L)/T(Ml,J))**FAC 

NSM 

860 

IF  (M2.GT.0)  VH(7,K)-WH(M2,J)*(WH(M2,L)/WH(M2,J))**FAC 

NSM 

870 

IF  (WH(7,R).GT.0.0)  GO  TO  35 

NSM 

880 

IF  (RH.GT.0.0)  GO  TO  30 

DFK-T04-DP 

NSM 

890 

NSM 

900 

TT-TO/DPK 

NSM 

910 

WH(7 ,R)-DPK*F(TT)/T(7 ,K) 

NSM 

920 

GO  TO  35 

NSM 

930 

30  TA-T0/T(7  tR) 

NSM 

940 

RHSAT-F(TA) 

NSM 

950 

RHD-.01*RB 

NSM 

960 

DK-(1 .0— (1 .0-RHD)*RHSAT*RV*T(7 ,K)/P(7 ,K)) 

NSM 

970 

WH(7 ,K)-RHSAT*RHD/DN 

NSM 

980 

35  CONTINUE 

NSM 

990 

IF  (M3.GT.0)  WO(7,K)-WO(M3,J)*(WO(H3,L)/WO(M3,J))**FAC 

NSM 

1000 

HST0R(K)-0. 

NSM 

1010 

IF  (HMIX(J).LE.O.)  GO  TO  40 

NSM 

1020 

IF  (HMIX(L).LE.O.)  GO  TO  40 

NSM 

1030 

HSTOR(K)-HMIX(J)*(HMIX(L)/HMIX(J))**FAC 

NSM 

1040 

40  CONTINUE  NSM 

EH(7,F)«0.  jjSM 

EH<  12,10-0.  KSM 

EH(13,K)-0.  KS>* 

EH(14,K)-0.  NSM 

EH(15,F)-0.  KSM 

IF(IHAZE.EQ.O)  GO  TO  60  NSM 

IF  (VIS1.LE.0.0)  VIS1-VIS  KSM 

IF  (AHAZE.EQ.O.O)  GO  TO  45  KSM 

EH(N,K)-AHAZE  NSM 

AHAZE  IS  IN  LOWTRAN  NUMBER  DENSITY  UNITS  NSM 

CO  TO  55  NSM 

45  CALL  AEF.PRF  (J.VISl  ,HAZ1  ,IHA1  .ISEAl  .IVULl  ,NN)  NSM 

CALL  AERPRF  (L,VIS1 ,HAZ2 ,IHAl , ISEAl , IVULl ,NN)  NSM 

HAZE-0.  KSM. 

IF  (CHAZ1.LE.0.0).0R.(HAZ2.LE.0.0))  GO  TO  50  KSM 

HAZE-HAZ1*(HAZ2/HAZ1)**FAC  KSM 

50  EH(N,R)-HAZE  KSM 

55  AHOL-HZ  ( I TYAEP. )  NSM 

IF  ( AMAZE. NF .0. )  GO  TO  60  NSM 

IF  (Z(K).LE.2.0)  AHOLl-HZ(IHAl)  NSM 

IF  ( (Z(K) .CT .2.0) .AKD.(Z(K) .LE.30.))  AH0L2-SEASN(ISEA1 )  KSM 

IF  (Z(K) .GT .9.0)  AH0L3-VULCK( IVULl )  KSM 

60  WRITE  (NOUT.95)  Z(K)  ,P(7  ,K)  ,T(7  ,K)  ,DP,T1H  ,WH(7  ,K)  ,\.’0(7  ,K)  ,FH(K,K) ,  KSM 
1  VIS1.IHA1, ISEAl, IVULl, ITYAER.AHOLl ,AHOL2,AHOL3,AHOL  KSM 

65  CONTINUE  NSM 

IF  (IC1.LT.4)  GO  TO  75  NSM 

IC2-IC1+1  KSM 

DO  70  K-IC2.4  KSM 

70  ICH(F)-ICH(K-1)  KSM 

75  CONTINUE  NSM 

P.FTURN  NSM 

NSM 

80  FORMAT  (3F10.3,2F5.1 ,2E10.3,E10.3,F7.3,3I 1 )  NSM 

85  FORMAT  (3F10.3.2F5.1 ,2E10.3,2F10.3)  NSM 

90  FOPMAT  ( 1 OX , 26HINPUT  METEOROLOGICAL  DATA\/10X,2HZ-,F7.2,71*  KM,  P-,NSM 
1F7.2,6H  MB,T-,F5.1,15H  C,  DEV  PT.TEMP,F5.1,17H  C,  PEL  HUMIDITY- , F5KSM 
2.1.16P  Z,  H20  DENSITY-, 1PE9. 2, 7H  GM  M-3/10X.15H  OZONE  DENSITY-, E9. KSM 
32.16H  CM  M-3,  PAKGE-,0PF10.3,4H  KM  )  NSM 

95  FORMAT  (3F10.3.2F5.1 ,3E10.3,F10.3,4I3,4(1X,A10))  NSM 

100  FORMAT  (24H  MODEL  ATMOSPHERE  NO.  7,/4X,6HZ  (KM),3X,6HP  (MB) ,4X,49NSM 
1P.T  (C)  DEW  PT  ZKH  H20(GN.M-3)  03(GM.M-3)  KO.  DEN . , 30X ,  1 5HAEP0S0L  NSM 
2PROFILE,6X,10HEXTINCTION)  NSM 

END  NSM. 


1050 
1060 
1070 
1080 
1090 
1100 
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1130 
1140 
1150 
1160 
1170 
1180 
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1220 
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1240 
1250 
1260 
127C 
:  1280 
:  1290 
1300 
1310 
1320 
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1350 
1360 
1370 
1380 
1390 
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SUBROUTINE  HPROF 

MODIFIED  FOR  5  CM-1  BAND  MODEL  OPTION  -  OCTOBER  1980 

REVISED  12  DEC  1979 

DEFINES  THE  ATMOSPHERIC  DENSITY  PROFILE  OF  THE  MOLECULAR  AND 
AEROSOL  AMOUNTS  FOR  THE  MODEL  SELECTED 

DOUBLE  PRECISION  HZ,SEASN,VULCN 

COMMON  /CARD1/  MODEL, IHAZE, ITYPE, LEN, JP, IM,M1 ,M2,M3,ML,IEMISS,RO 
1  , TBOUND , ISEASN , IVULCN , VI S , JBMOD 
COMMON  /CARD2/  HI ,H2, ANGLE, RANGE, BETA,HMIN, RE 
COMMON  /CARD3/  VI ,V2,DV,AVW,C0,CW,W(15) ,E(15) ,CA,PI 
COMMON  /CNTRL/  LENST,KMAX,M,IJ, Jl , J2, JMIN, JEXTRA,IL,IKMAX,NLL,NP1 
1 , IFIND.NL, IKLO 

COMMON  /MDATA/  Z(34) ,P(7 ,34) ,T(7,34) ,WH(7 ,34) ,W0(7 ,34) 

1  ,SEASN(2 ) ,VULCN(5) ,VSB(9) ,HZ( 15) ,HMIX(34) 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL 

COMMON  RELHUM(34) ,HST0R(34) ,EH(15 ,34) ,ICH(4) ,VH(15) ,TX(15) 

COMMON  WLAY(34,15),WPATH(68,15),TBBY(68),PRES(68) 

COMMON  ABSC(4,40),EXTC(4,40),VX2(40) 

F(A)-EXP(18. 9766-14. 9595*A-2.43882*A*A)*A 
DO  5  1-1,34 
DO  5  J-l.KMAX 
5  WLAY(I ,J)-0. 

RV  -  H20  GAS  CONSTANT 
AVW-0 . 5E-4* ( V 1+V2 ) 

AVW- AVW*  AVW 
CO-77. 46+.459*AVW 
CW-4 3 . 487-0 . 347 3*AVW 

CHANGE  FOR  BLACKBODY  SOURCE  AT  ANY  H2  (SEE  TRANS — LINE  TRA:2181) 
IF(TBOUND.LE.O.AND.(M1.LE.O.OR.M.EQ.7))TBOUND-T(M,1) 
IF(TB0UND.LE.0.AND.M1 .GT.0.AND.M.LT.7)  TBOUND-T(Ml.l) 

IF  (JP.EQ.O)  WRITE  (NOUT, 45) 

IF  (JP.EQ.O)  WRITE  (NOUT, 50) 

IF  (M.LT.7)  ML-NL 
RV-4 .6150E-3 
DO  25  1-1 ,ML 
PS-P(M,I)/1013.0 
TS-273.15/T(M,I) 

WTEMP— WH(M,I) 

IF(M1.GT.0.AND.M.LT.7)PS-P(M1,I)/1013. 

IF(Ml .GT.O.AND. M.LT.7)  TS-273.15/T(M1,I) 

IF( M2. GT.O. AND. M.LT.7)  WTEMP- WH( M2 ,1) 

RELHUM(I)-0. 

IF  (Z(I).GT.2.0)  GO  TO  10 
RHOSTR-(PS*1013.0)*(TS/273.15)/RV 

R£LHUM(I)-100.0*(WTEMP/F(TS))*((RH0STR-F(TS))/  (RHOSTR-WTEMP)) 
J-0 . 1*VTEMP 
X«PS*TS 
PT-PS*SQRT(TS ) 

EH ( 1 , I )-D*PT**0 . 9 
EH(2 ,I)-X*PT**0.75 
EH(4,I)-0.8*PT*X 
PPW-4 ,56E-5*D*273 . 15/TS 
TSl-(296. 0/273. 15)*TS 


HPR 

10 

HPR 

*11 

RPR 

20 

HPR 

30 

HPR 

40 

HPR 

50 

HPR 

:51 

HPR 

60 

HPR 

*70 

HPR 

80 

HPR 

90 

HPR 

100 

HPR 

110 

HPR 

120 

HPR 

130 

HPR 

:  131 

HPR 

140 

HPR 

*150 

HPR 

160 

HPR 

170 

HPR 

180 

HPR 

190 

HPR 

200 

HPR 

210 

HPR 

220 

HPR 

230 

HPR 

240 

HPR 

250 

HPR 

:  251 

HPR 

:260 

HPR 

:270 

HPR 

:280 

HPR 

:290 

HPR 

300 

HPR 

310 

HPR 

320 

HPR 

330 

HPR 

340 

HPR 

350 

HPR 

360 

HPR 

370 

HPR 

380 

HPR 

390 

HPR 

400 

HPR 

410 

HPR 

420 

HPR 

430 

HPR 

440 

HPR 

450 

HPR 

460 

HPR 

470 

HPR 

480 

HPR 

490 

HPR 

500 
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EH(5,I)-D*PPW*EXP(6.08*(TS1-1.0))+0.002*D*(PS-PPW) 

EH(10,I)-D*(PPW+0.12*(PS-PPW))*EXP(4.56*(TS1-1.0)) 

EH(6,I)-X 

C  SUBROUTINE  AERPRF  COMPUTES  EH(7,I) 

C  EH(7,I)-A£RSOL  FOR  0-2KM 

C  EH(12,I)-AERSOL  FOR  2-9KM 

C  EH(13,I)-A£RSOL  FOR  9-30KM 

C  EH(14,I)-AERS0L  FOR  30-1 OOKM 

IF  (M.NE.7)  CALL  AERPRF  (I,VIS,HAZE,IHAZE,ISEASN,IVULCN,N) 

IF  (M.EQ.7)  GO  TO  15 
EH(7,I)-0. 

EH(12,I)-0. 

EH(13,I)-0. 

EH(14,I)-0. 

EH(15,t)-0. 

EH(N,I)-HAZE 
15  CONTINUE 

EH( 1 5 , I )-RELHUM( I )*EH(7 , I ) 

IF(ICH(1).GT.7)EH(15,I)-RELHUM(1)*EH(12,I) 

EH(8,I)-46.6667*W0(M,I) 

IF  (M3.GT.0.AND.M.LT.7)  EH(8,l)-46.667*WO(M3,I) 
EH(3,I)-EH(8,I)*PT**0.4 

C  EH(11,I)-HN03  ABSORBER  AMOUNT  (ATM-CM) /KM 
EH(11 ,I)-PS*TS*HMIX(I)*1 .0E-04 

SWITCH  FOR  5CM-1  BAND  MODEL  OPTION 
IF  (JBMOD.EQ.O)  GO  TO  18 
EH(1 , I)  -  D 
EH(2 ,1 )  -  X 
EH(3,I)  -  EH(8,I) 

18  CONTINUE 
C 

IF  (M.EQ.7)  EH(11 ,I)-PS*TS*HSTOR(I)*l .0E-04 
EH(9,I)-1.0 

REF-1. OE-6*(CO*X*1013. 0/273. 15-PPV*CW) 

IF  (I.EQ.ML)  GO  TO  20 
P2-P(M,I+1) 

T2-T(M,I+1) 

W2-WH(M,I+1) 

IF(M1  .GT.0.AND.M.LT.7)  P2-P(M1 ,1+1 ) 

IF  (M1.GT.0.AND.M.LT.7)  T2-T(M1,I+1) 

IF  (M2.GT.0.AND.M.LT.7)  W2-WH(M2,I+1 ) 

PPW-4 . 56E-6*W2*T2 

EH( 9 , I )-0 . 5*(REF+1 . 0E-6*( C0*P2 /T2-PPW*CW) ) 

20  IF  (I.EQ.ML)  EH(9,I)-0. 

IF  (JP.NE.O)  GO  TO  25 
Pl-P(M.I) 

T1-T(M,I) 

IF(M1  .GT.0.AND.M.LT.7)  P1-P(M1,I) 

IF(M1  .GT.0.AND.M.LT.7)  Tl-T(Ml.I) 

WRITE  (NOUT.40)  1,2(1) ,P1 ,T1 ,(EH(K,I) ,K-1 ,6) ,EH(9,I) ,EH(8,I) 
25  CONTINUE 


HPR 

510 

HPR 

520 

HPR 

530 

HPR 

540 

HPR 

550 

HPR 

560 

HPR 

570 

HPR 

580 

HPR 

590 

HPR 

600 

HPR 

610 

HPR 

620 

HPR 

630 

HPR 

640 

HPR 

650 

HPR 

660 

HPR 

670 

HPR 

680 

HPR 

690 

HPR 

700 

HPR 

710 

HPR 

720 

HPR 

730 

HPR 

740 

HPR 

*741 

HPR 

*742 

HPR  *743 

HPR  *744 

HPR 

*745 

HPR  *746 

HPR  *747 

HPR 

*748 

HPR 

750 

HPR 

760 

HPR 

770 

HPR 

780 

HPR 

790 

HPR 

800 

HPR 

810 

HPR 

820 

HPR 

830 

HPR 

840 

HPR 

850 

HPR 

860 

HPR 

870 

HPR 

880 

HPR 

890 

HPR 

900 

HPR 

910 

HPR 

920 

HPR 

:930 

HPR 

940 
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ZF(JP.EQ.O)  WRITE  (NOUT.55)  BPR  :950 

DO  35  1-1 , ML  HPR  960 

IF  (JP.NE.O)  60  TO  30  BPR  970 

Pl-P(MtI)  HPR  980 

T1-T(M,I)  HPR  990 

IF(M1 .GT.0.AND.M.LT.7)  P1-P(M1,I)  HPR  1000 

IF(M1.GT.0.AND.M.LT.7)  T1-T(M1,I)  HPR  1010 

WRITE  (N0UT.40)  1,2(1) ,P1 ,T1 ,<EH(K,I) ,K-10,11) ,EH(7,I),(EH(K,I) ,  HPR:1020 
1  K-12,15),RELHUM(I)  HPR:1030 

30  EH(9,I)-EH(9,I)+1.  HPR  1040 

35  CONTINUE  HPR  1050 

RETURN  HPR  1060 

C  HPR  1070 

40  FORMAT  <I4,0PF9.2,F9.3,F9.3,1X,1P8E10.3)  HPR  1080 

45  FORMAT  (1H1 ,///10X,20H  HORIZONTAL  PROFILES/)  HPR  1090 

50  FORMAT  (4H  ID,5X,3HALT,6Xf 1HP,8X,1HT,8X,3HH20,6X,4HC02+,8X,2H03,8HPR  1100 

lX,2HN2,5X,8HH20(10M),4X,4HM0LS,5X,5H(N-l),4Xt6H03(UV))  HPR  1110 

55  FORMAT  (1H1 ,///10X,20H  HORIZONTAL  PROFILES/ ,4H  ID,5X,3HALT,6X,1HPHPR  1120 

1 ,8X,1HT,6X,7HH20(4M) ,5X,4HHN03,6X(4HAER1 ,6X,4HAER2 ,6X,4HAER3,6Xt4HHPR  1130 
2AER4>3Xt9H(AERl*RH),5X,2HRH)  HPR  1140 

END  HPR  1150 
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SUBROUTINE  AERPRF  (1 , VIS, HAZE, IHAZE,ISEASN,IVULCN,N) 
nLL  COMPUTE  HORIZONTAL  PROFILES  FOR  AEROSOLS 


2VUKOSS<34) ,HIVUSS(34) ,EXVUSS(34) ,UPNATM(34) ,VUT0N0(34) , 

3VUTOEX(34) ,EXUPAT(34) 

DIMENSION  VS(5) 

DATA  VS/50.,23.,10.,5.,2./ 

HAZE-0. 

CALL  PP.FDTA 
N-7 

IF  (IHAZE.EQ.O)  RETURN 
IF  (ZHT(I) .CT.2.0)  GO  TO  15 
DO  5  J-2,5 

IF  (VIS.CE.VS(J))  CO  TO  10 
5  CONTINUE 
J-5 

10  CONST-1 . / ( 1 . /VS ( J )-l . /VS ( J- 1 ) ) 

HAZE-CONST* ( (HZ2K( I , J )-HZ2K ( I , J-l ) )/VIS+HZ2K(I ,J-1 )/VS(J)-HZ2K(I ,JAEP 
1)/VS(J-1)) 

RETURN 

15  IF  (ZHT(I ) .GT.9.0)  GO  TO  35 
N-12 

CONST-1. /(1./23.-1./50.) 

IF  (ISEASN.CT.l)  GO  TO  25 
IF  (VIS.LE.23.)  HAZE-SPSU23(I ) 

IF  (VIS.LE.23.)  RETURN 
IF  (ZHT(I).CT.4.0)  GO  TO  20 

HAZE-CONST*< (SPSU23(I)-SPSU50(I ))/VIS+SPSU50(I)/23.-SPSU23(I )/ 

RETURN 

20  HAZE-SPSU50(I ) 

RETURN 

25  IF  (VIS.LE.23.)  HAZE-FAWI23U) 

IF  (VIS.LE.23.)  RETURN 
IF  (ZKT(I ) .GT.4.0)  GO  TO  30 

HAZE-CONST* ((FAWI23(I  )-FAWI50(I ))/VIS+FAUI50(I )/23.-FAUI23(I )/ 

RETURN 

30  HAZE-FAVT 50(1) 

RETURN 

35  IF  (ZHT(I ) .GT.30.0)  GO  TO  75 
N-13 

HAZE-BASTSS ( I ) 

IF  (ISEASN.CT.l)  GO  TO  55 
IF  (IVULCN.EQ.O)  HAZE-BASTSS(I) 

IF  (IVULCN.EQ.O)  RETURN 
GO  TO  (40,45,50,50,45),  IVULCN 
40  HAZE-BASTSS (I) 

RETURN 

45  HAZE-VUMOSS(I) 

RETURN 

50  HAZE-HIVUSS(I) 

RETURN 

55  IF  (IVULCN.EQ.O)  HAZE-BASTFV(I) 

IF  (IVULCN.EQ.O)  RETURN 


AER 

10 

AER 

20 

,AEF 

3C 

,AER 

40 

AER 

50 

AER 

60 

AFR 

70 

AER 

:R0 

AER 

90 

AER 

:  100 

AER 

11C 

AER 

120 

AER 

130 

AEP 

140 

AER 

150 

AEP 

160 

AEP 

170 

AER 

18C 

JAEP 

190 

AEP 

200 

AEP. 

210 

AER 

220 

AEP. 

230 

AEP 

240 

AEP 

250 

AEP 

260 

AER 

270 

AER 

280 

)AER 

290 

AEr 

300 

AER 

310 

AER 

320 

AER 

330 

AER 

340 

AEP 

350 

,  )AEP 

360 

AER 

370 

AEP 

380 

AER 

390 

AER 

400 

AER 

410 

AER 

420 

AER 

430 

AER 

440 

AER 

450 

AER 

460 

AER 

470 

AER 

480 

AER 

490 

AER 

500 

AER 

510 

AER 

520 

AER 

530 

AEP 

540 
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GO  TO  (60,65,70,70,65),  IVULCN 

AER 

550 

60  HAZE-BASTFW(I) 

AER 

560 

RETORN 

AER 

570 

65  HAZE-VUMOFW(I) 

AER 

580 

RETURN 

AER 

590 

70  HAZE-HIVOFV(I) 

AER 

600 

RETURN 

AER 

610 

75  N-14 

AER 

620 

IF  (IVULCN.GT.l)  GO  TO  80 

AER 

630 

HAZE-UPNATM(I) 

AER 

640 

RETURN 

AER 

650 

80  HAZE-VUTONO(I) 

AER 

660 

RETURN 

AER 

670 

END 

AER 

680 
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SUBROUTINE  GEO 


SPHERICAL  GEOMETRY  WITH  REFRACTION 

DEFINES  ABSORBER  AMOUNTS  FOR  THE  ATMOSPHERIC  SLANT  PATH 
USED  TO  SET  UP  VERTICAL  PROFILE  ARRAY  VH  AND  DEFINES  MATRIX 
WLAY,  FOR  USE  IN  SUBROUTINE  PATH 

DOUBLE  PRECISION  HZ,SEASN,VULCN 

COMMON  /CARD!/  MODEL, IHAZE,ITYPE,LEN,JP,IM,M1,M2,M3,ML,IEMISS,R0 
1  ,TBOUND,ISEASN,IVULCN, VIS, JBMOD 
COMMON  /CARD2/  HI ,H2, ANGLE, RANGE, BETA, HMIN, RE 
COMMON  /CARD3/  VI ,V2,DV,AVV,C0,CW,W(15) ,E(15) ,CA,PI 
COMMON  /CNTRL/  LENST,XMAX,M,IJ,Jl,J2,JMIN,JEXTRA,IL,IXMAX,NLLtNPl 
l,IFIND,NL,IKLO 

COMMON  /MDATA/  Z(34) ,P(7 ,34) ,T(7 ,34) ,WH(7 ,34) ,W0(7 ,34) 

1  ,SEASN(2) ,VULCN(5) ,VSB(9) ,H2(15) ,HMIX(34) 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL 

COMMON  RELHUM( 34 ) ,HSTOR( 34 ) ,EH(15,34) ,ICH(4) ,VH(I5) ,TX(15) 

COMMON  WLAY(34,15),WPATH(68,15),TBBY(68),PR£S(68) 

COMMON  ABSC(4 ,40) ,EXTC(4 ,40) ,VX2(40) 

JSTOR-O 

JEXTRA-0 

IF  (IFIND.EQ.l)  CALL  ANGL  (HI, H2, ANGLE, BETA,LENST,M,NL,RE,PI,ML) 

IFIND-0 

LEN-LENST 

IF  (ITYPE.EQ.l)  GO  TO  20 
DO  5  K-l.KMAX 
VHOO-O.O 
5  CONTINUE 
BETA-0.0 
SR-0.0 
IP-0 

NOW  DEFINE  CONSTANT  PRESSURE  PATH  QUANTITES  EH (1-8) 

Y-CA* ANGLE 
SPHI-SIN(Y) 

R1-(RE+H1)*SPHI 
IF  (Hl.GT.Z(NL))  GO  TO  10 
GO  TO  20 

10  X-(RE+Z(NL) ) / (RE+H1 ) 

IF  (SPHI.GT.X)  GO  TO  15 
Hl-Z(NL) 

Jl-NL 

SPHI-SFHI/X 

ANGLE-180 . O-ASIN ( SPHI ) / CA 
R1-(RE+H1 )*SPHI 
GO  TO  20 
15  HMIN-R1-RE 

WRITE  (NOUT, 235)  HMIN 
GO  TO  210 
20  CONTINUE 
IP-1 
XI -HI 

CALL  POINT  (H1,YN,N,NP1,IP) 


GEO 

10 

GEO 

20 

GEO 

30 

GEO 

40 

GEO 

50 

GEO 

60 

GEO 

70 

GEO 

:7i 

GEO 

80 

GEO 

*90 

GEO 

100 

GEO 

110 

GEO 

120 

GEO 

130 

GEO 

140 

GEO 

150 

GEO 

1 151 

GEO 

160 

GEO 

*170 

GEO 

180 

GEO 

190 

GEO 

200 

GEO 

210 

GEO 

220 

GEO 

230 

GEO 

240 

GEO 

250 

GEO 

260 

GEO 

270 

GEO 

280 

GEO 

290 

GEO 

300 

GEO 

310 

GEO 

320 

GEO 

330 

GEO 

340 

GEO 

350 

GEO 

360 

GEO 

370 

GEO 

380 

GEO 

390 

GEO 

400 

GEO 

410 

GEO 

420 

GEO 

430 

GEO 

440 

GEO 

450 

GEO 

:460 

GEO 

470 

GEO 

480 

GEO 

490 

GEO 

500 

GEO 

510 
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Jl-N 

GEO 

520 

TX1-TX(9) 

GEO 

530 

DO  25  E-1,XMAX 

GEO 

540 

25  E(K)-TX(K) 

GEO 

550 

IF  (ITYPE.EQ.l)  GO  TO  80 

GEO 

560 

IF  (ITYPE.EQ.3)  H2-Z(NL) 

GEO 

570 

IF  ( ANGLE. GT. 90.0)  GO  TO  90 

GEO 

580 

30  IF  (ANGLE. GT. 90. 0.AND.NP1 .GT.O)  Jl-Jl+1 

CEO 

590 

J2-NL 

GEO 

600 

IF  (ITYPE.EQ.3)  GO  TO  35 

GEO 

610 

CALL  POINT  (H2,YN,N,NP ,IP) 

GEO 

620 

J2-N 

GEO 

630 

IF  (NP.GT.O)  J2-J2-1 

GEO 

640 

35  DO  40  K-l.KMAX 

GEO 

650 

IF  (K.EQ.9)  GO  TO  40 

GEO 

660 

EH(K,J1)«E(K) 

GEO 

670 

IF  (ITYPE.EQ.3)  GO  TO  40 

GEO 

680 

EH(K,  J2+1  )-TX(K) 

GEO 

690 

40  CONTINUE 

GEO 

700 

IF  (J1.EQ.J2)  TX1-TX1+YN-EH(9,J1) 

GEO 

710 

C****  NOW  DEFINE  VERTICAL  PATH  QUANTITIES  VH 

GEO 

720 

IF  (JP.EQ.O)  WRITE  (N0UT.225) 

GEO 

:730 

DO  45  K-l.KMAX 

GEO 

740 

45  W(K)-0. 

GEO 

750 

DO  75  I-J1.J2 

GEO 

760 

XI -2(1) 

GEO 

770 

IF  (I.LT.J2)  X2«Z(I+1) 

GEO 

:780 

IF  (I.EQ.J1)  Xl-Hl 

GEO 

790 

IF  (I.EQ.J2)  X2-H2 

GEO 

800 

DZ-X2-X1 

GEO 

810 

IF  (I.EQ.NL)  DZ-Z(I)— Z(I-1 ) 

GEO 

820 

DS-DZ 

GEO 

830 

C  UPWARD  TRAJECTORY 

GEO 

840 

RX-(RE+X1 ) /(RE+X2 ) 

GEO 

850 

THETA-ASIN( SPHI ) /CA 

GEO 

860 

PHI-ASIN(SPHI*RX)/CA 

GEO 

870 

BET-THETA-PHI 

GEO 

880 

SALP-RX*SPHI 

GEO 

890 

IF  (SPHI.GT.l.E-10)  DS-(RE+X2)*SIN(BET*CA)/SPHI 

GEO 

900 

BETA-BETA+BET 

GEO 

910 

PSI-BETA+PHI-ANGLE 

GEO 

920 

PHI-1 80 .-PHI 

GEO 

930 

SR-SR+DS 

GEO 

940 

JEXTRA-0 

GEO 

950 

DO  70  K-l.KMAX 

GEO 

960 

EV-DS*EH(R,I) 

GEO 

970 

IF  (I.EQ.NL)  GO  TO  50 

GEO 

980 

IF  (EH(K,I). EQ.O.O. OR. EH(K,I+1 ) .EQ.O.O)  GO  TO  55 

GEO 

990 

IF  (ABS((EH(K,I)/EH(K,I+l))-1.0).LT.1.0E-6)  GO  TO  60 

GEO 

1000 

EV«DS*(EH(K, I )-EH(K, 1+1 ) ) /ALOG (EH(K, I ) /EH(K, I+l ) ) 

GEO 

1010 

GO  TO  60 

GEO 

1020 

50  IF  (EH(K, I). EQ.O.O)  GO  TO  55 

GEO 

1030 

IF  (EH(R,I-1). EQ.O.O)  GO  TO  55 

GEO 

1040 
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IF  (ABS((EH(K,I-1)/EH(K,I))-1 .0)  .LT.l 

.OE-6)  GO  TO  60 

GEO 

1050 

EV»E V / ALOG (EH (K , 1-1 )/EH(X,I)) 

GEO 

1060 

60  TO  60 

GEO 

1070 

55  EV-O. 

GEO 

1080 

60  VH(K)-VH(K)+EV 

GEO 

1090 

IF  (I.EQ.JSTOR)  GO  TO  65 

GEO 

1100 

WLAY(I,K)-EV+W(K) 

GEO 

1110 

W(K)-0. 

GEO 

1120 

GO  TO  70 

GEO 

1130 

65  W(K)-EV 

GEO 

1140 

IF  (J1.NE.J2)  GO  TO  70 

GEO 

1150 

WLAY(J2+1  ,K)-W(K) 

GEO 

1160 

W(K)-0. 

GEO 

1170 

JEXTRA-1 

GEO 

1180 

70  CONTINUE 

GEO 

1190 

IF  (JP.EQ.O)  WRITE(NOUT,245)  I, XI ,(VH(L) ,L-1 ,8) ,PSI,FHI,BETA, 

GEO: 

1200 

1  THETA, SR 

GEO: 

1201 

IF  (JP.EQ.O)  WRITE  (NOUT.240)  X2,(VH(L),L-10,14),DS 

GEO: 

1210 

IF  (I.GE.NL)  GO  TO  75 

GEO 

1220 

IF  (I+1.EQ.J2)  EH(9,I+1)-YN 

GEO 

1230 

IF  (I.EQ.J1)  EH(9,I)-TX1 

GEO 

1240 

RN-EH(9,I+1)/EH(9,I) 

GEO 

1250 

SPHI«SPHI*RX/RN 

GEO 

1260 

IF  (SALP.GE.RN)  SPHI-SALP 

GEO 

1270 

75  CONTINUE 

GEO 

1280 

GO  TO  190 

GEO 

1290 

C  HORIZONTAL  PATH 

GEO 

1300 

80  DO  85  K-l.KMAX 

GEO 

1310 

W(K)-RANGE*EH(K,1) 

GEO 

1320 

IF  (M.GT.O)  W(K)-RANGE*TX(K) 

GEO 

1330 

VH(K)-W(K) 

GEO 

1340 

85  CONTINUE 

GEO 

1350 

GO  TO  200 

GEO 

1360 

90  CONTINUE 

GEO 

1370 

C  DOWNWARD  TRAJECTORY 

GEO 

1380 

K2-0 

GEO 

1390 

IF  (NP1.EQ.1)  Jl-Jl-1 

GEO 

1400 

J2-J1+1 

GEO 

1410 

J-Jl+1 

GEO 

1420 

YN1-YN 

GEO 

1430 

IF  (H2.GT.Z(J1+1).0R.H1.EQ.H2)  GO  TO 

100 

GEO 

1440 

IF  (NP1 .EQ. 1 .AND .H2 . GE . Z( J 1+1 ) )  GO  TO 

100 

GEO 

1450 

CALL  POINT  (H2,YN,N,NP2,IP) 

GEO 

1460 

DO  95  K-l.KMAX 

GEO 

1470 

95  W(X)-TX(R) 

GEO 

1480 

TX2-TX<9) 

GEO 

1490 

YN2-YN 

GEO 

1500 

IF  (H2.LT.H1)  H-H2 

GEO 

1510 

J2-N 

GEO 

1520 

IF  (Jl.EQ.J2)  TX2-TX1+YN2-EH(9,N) 

GEO 

1530 

IF  (H2.GT.H1)  TX1-TX2 

GEO 

1540 

IF  (Jl.EQ. J2.AND.H2.LT. HI)  YN1-TX2 

GEO 

1550 

100  A0-(RE+H1)*SPHI*YN1 

GEO 

1560 

I 


IF  (H2.GE.H1)  YN2-YN1 
DO  105  I-l.Jl 
HMIN«A0/EH(9,I)-RE 
IF  (I.EQ.J1)  HMIN-A0/YN1-RE 
JMIN-I 

IF  (HMIN.LE. 2(1+1))  GO  TO  110 
105  CONTINUE 
110  X-HMIN 

IF  (HMN.LE.O.O)  GO  TO  120 
CALL  POINT  (X,YN,N,NP,1?) 

JMIN-N 

TX3-TX(9) 

IF  (J2.EQ.N.OR.J1.EQ.N)  TX3*YN2+TX(9)-EH(9,N) 
IF  (TX3.LT. 0.0)  TX3-TX(9) 

IF  (J1.EQ.N.AND.H2.GE.H1)  GO  TO  115 
HMI N-AO / TX3-RE 

IF  (ABS(X-HMIN).GT. 0.0001)  GO  TO  110 
115  IF  (J1.EQ.N.AND.H2.GE.H1)  YN1-TX3 
IF  (J2.EQ.N.AND.J1.NE.J2)  YN2-TX3 
IF  (H2.GE.H1)  TX2-TX3 
IF  (H2.GE.H1)  J2-N 
IF  (H2.GE.H1 .OR.H2.LT.HMIN)  H-HMIN 
WRITE  (N0UT.250)  HMIN 
IF  (H2.LT.HMIN)  J2-N 
IF  (H2.LT.HMIN)  WRITE  (NOUT.270)  HMIN 
GO  TO  125 

120  WRITE  (N0UT.250)  HMIN 
IF  (H2.LT.H1)  GO  TO  125 

IF  (ITYPE.EQ.3.0R.H2.GE.H1)  WRITE  (NOUT.255) 

ITYPE-2 

TX2-EH(9,1) 

JMIN-0 

J2-1 

H2-0.0 

H-0.0 

C****  NOW  DEFINE  VERTICAL  PATH  QUANTITIES  VH 
125  IF  (JP.EQ.O)  WRITE  (NOUT.225) 

JSTOR-J-1 
DO  155  I-l.NL 
J-J-l 

R£F-EH(9,J) 

IF  (I.EQ.l)  REF-YN1 
IF  (I.EQ.l .AND. K2.EQ.1)  REF-YN2 
IF  (J.EQ.J2.AND.K2.EQ.0)  REF-TX2 
IF  (I.NE.l)  X1-2(J+1) 

X2-Z(J) 

IF  (J.EQ.J2.AND.R2.EQ.0)  X2-H 
IF  (J.EQ.JMIN.AND.K2.EQ.1)  X2-HMIN 
HM-(RE+X1 )*SPHI-RE 
IF  (HM.GT.Z(J) .AND.HM.GT.X2)  X2-HM 
RX“ (RE+X1 ) / (RE+X2 ) 

DS-X1-X2 

ALP-90.0 


GEO  1570 
GEO  1580 
GEO  1590 
GEO  1600 
GEO  1610 
GEO  1620 
GEO  1630 
GEO  1640 
GEO  1650 
GEO  1660 
GEO  1670 
GEO  1680 
GEO  1690 
GEO  1700 
GEO  1710 
GEO  1720 
GEO  1730 
GEO  1740 
GEO  1750 
GEO  1760 
GEO  1770 
GEO  1780 
GEO: 1790 
GEO  1800 
GEO: 1810 
GEO  1820 
GEO: 1830 
GEO  1840 
GEO: 1850 
GEO  1860 
GEO  1870 
GEO  1880 
GEO  1890 
GEO  1900 
GEO  1910 
GEO  1920 
GEO: 1930 
GEO  1940 
GEO  1950 
GEO  1960 
GEO  1970 
GEO  1980 
GEO  1990 
GEO  2000 
GEO  2010 
GEO  2020 
GEO  2030 
GEO  2040 
GEO  2050 
GEO  2060 
GEO  2070 
GEO  2080 
GEO  2090 


D-21 


THET-ASIN(SFHI)/CA 

SALP«RX*SPHI 

IF  (ABS(X2-HM) .GT.l .OE-5)  ALP-ASIN(SALP)/CA 
BET* ALP-THET 

IF  (SPHI.GT.I.0E-10)  DS-(RE+X2)*SIN(BET*CA)/SPHI 

THETA* 180. O-THET 

BETA-BETA+BBT 

PSI-BETA-ALP-ANGLE+1 80 . 0 

SR-SR+DS 

DO  ISO  K-l ,KMAX 

AJ-EH(K.J) 

BJ-EH(R,  J+l ) 

IF  (J.EQ.J1)  BJ-E(R) 

IF  (J.EQ.J2.AND.H2.LT.R1.AND.H2.GT.0.0)  AJ-W(X) 

IF  (J.EQ.JMIN.AND.H2.GE.H1)  AJ-TX(K) 

IF  (J.EQ.JMIN.AND.ABS(H2-HM).LT.1.0E-5)  AJ-TX(K) 

IF  (K2.EQ.0)  GO  TO  130 
IF  (J.EQ.J2)  BJ-W(K) 

IF  (J.EQ.JMIN)  AJ-TX(K) 

130  IF  (AJ.EQ.O.O.OR.BJ.EQ.O.O)  GO  TO  140 

IF  (ABS((AJ/BJ)-1.0).LE.1.0E-6)  GO  TO  135 
EV-DS*(AJ-BJ)/ALOG(AJ/BJ) 

GO  TO  145 
135  EV»DS*AJ 
GO  TO  145 
140  EV-0.0 
145  VH(K)-VH(K)+EV 
150  WLAY(J,K)-EV 

IF  (JP.EQ.O)  WRITE(NOOT,245)  J,X1 ,(VH(L) ,L-1 ,8) ,PSI , ALP, BETA, 
1  THETA  SR 

IF  (JP.EQ.O)  WRITE  (NOUT,240)  X2,(VH(L),L-10,14),DS 
IF  (J.EQ.J2.AND.H2.GE.H1)  GO  TO  180 
IF  (J.EQ.JMIN.AND.K2.EQ.1)  GO  TO  170 
IF  (J.NE.l)  RH«REF/EH(9,J-1) 

IF  (J.EQ.J2+1)  RN-REF/TX2 

IF  (J.EQ.J2.AND.K2.EQ.0)  RN-REF/YN2 

IF  ( J .EQ. ( JMIN+1 ) .AND.K2 .EQ. 1 )  RN-REF/TX3 

IF  (SALP.GE.RN)  RN-1.0 

SPHI-SALP*RN 

IF  (J.EQ.J2.A1TO.K2.EQ.0)  GO  TO  160 
155  CONTINUE 

160  IF  (HMIN.LE.O.O)  GO  TO  190 
IF  (LEN.EQ.O)  WRITE  (NOUT.260) 

IF  (LEN.EQ.O)  GO  TO  190 
IF  (LEN.EQ.I)  WRITE  (NOUT,265) 

K2-1 
XI -X2 

IF  (ABS(Xl-HMIN).LE.O.OOl)  GO  TO  190 

H»HMIN 

J-J2+1 

IF  (NP2.EQ.1)  J-J-l 
B-BETA 

PH-1 80 . 0-ASIN(SPHI ) /CA 


GEO  2100 
GEO  2110 
GEO  2120 
GEO  2130 
GEO  2140 
GEO  2150 
GEO  2160 
GEO  2170 
GEO  2180 
GEO  2190 
GEO  2200 
GEO  2210 
GEO  2220 
GEO  2230 
GEO  2240 
GEO  2250 
GEO  2260 
GEO  2270 
GEO  2280 
GEO  2290 
GEO  2300 
GEO  2310 
GEO  2320 
GEO  2330 
GEO  2340 
GEO  2350 
GEO  2360 
GEO  2370 
GEO: 2380 
GEO: 2381 
GEO: 2390 
GEO  2400 
GEO  2410 
GEO  2420 
GEO  2430 
GEO  2440 
GEO  2450 
GEO  2460 
GEO  2470 
GEO  2480 
GEO  2490 
GEO  2500 
GE0:2510 
GEO  2520 
GEO: 2530 
GEO  2540 
GEO  2550 
GEO  2560 
GEO  2570 
GEO  2580 
GEO  2590 
GEO  2600 
GEO  2610 
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1 


c 


TS-SR 

PS-PSI 

DO  165  K-l.KMAX 
165  E(K)-VH(K) 

GO  TO  125 
170  BETA-2 .*BETA-B 
PSI-2.*PSI-PS 
SR-2.*SR-TS 
LONG  PATH  TAKEN 
PHI -PH 

DO  175  K-l.KMAX 
175  VH(K)-2.*VH(K)-E(K) 

GO  TO  190 

180  DO  185  K-l ,KMAX 
185  VH(K)-2.0*VH(K) 

BETA-2 . 0*  BETA 
SR-2.0*SR 

IF  (H2.EQ.H1)  GO  TO  190 

RN-TX1/YN1 

SPHI-SIN(ANGLE*CA) 

IF  (SPHI.LT.RN)  SPHI-SPHI/RN 
GO  TO  30 
190  CONTINUE 

IF  (ANGLE. GT. 90.0)  WRITE  (N0UT.215)  HM 

DO  195  K-l.KMAX 

W(K)-VH(K) 

195  CONTINUE 

200  WRITE  (NOUT.220) 

WRITE  (NOUT.280) 

WRITE  (NOUT.230)  (W(I) ,1-1 ,8) ,W(10) ,W(11 ) 

IF(W(7) .GT.0.0.AND.ICH(1 ) .LE.7)  W(15)-W(15)/W(7) 
IF(W(12) .GT .0.0.AND.ICH(1 ) .GT.7)  W(15)-W(15)/W(12) 
205  WRITE  (NOUT.275)  (W(I ) ,1-12, 15) 

1-1 

210  RETURN 

215  FORMAT  (7F10.3) 


GEO  2620 
GEO  2630 
GEO  2640 
GEO  2650 
GEO  2660 
GEO  2670 
GEO  2680 
GEO  2690 
GEO  2700 
GEO  2710 
GEO  2720 
GEO  2730 
GEO  2740 
GEO  2750 
GEO  2760 
GEO  2770 
GEO  2780 
GEO  2790 
GEO  2800 
GEO  2810 
GEO  2820 
GEO  2830 
GEO  2840 
GEO: 2850 
GEO  2860 
GEO  2870 
GEO  2880 
GEO: 2890 
GEO: 2900 
GEO: 2910 
GEO  2920 
GEO  2930 
GEO: 2940 
GEO  2950 
GEO  2960 
GEO  2970 
GEO  2980 


220  FORMAT  (/10X.38H  EQUIVALENT  SEA  LEVEL  ABSORBER  AM0UNTS//21X, 112H  WGEO  2990 
1ATER  VAPOUR  C02  ETC.  OZONE  NITROGEN  (CONT)  H20  (CONGEO  3000 


2T)  MOL  SCAT  AER1  OZONE (U-V)/24X,7HGM  CM-2,10X,2HKGEO  3010 

3M, 10X.6HATM  CM, 10X,2HKM,9X,7HGM  CM-2,10X,2HKM,11X,5X,10X,6HATM  CM)GEO  3020 
225  FORMAT  <1H1,/10X,20H  VERTICAL  PROFILES,//, IX, 2HID,3X,3HALT,6X,3HGEO  3030 
1H20 , 7X , 4HC02+ , 6X , 2H03 , 9X , 2HN2 , 6X , 8HH20 (1 OM) , 4X , 4HM0LS , 6X , 4HAER1 , 5XGE0  3040 
2 , 6H03 (UV ) , 5X , 3HPSI , 6X , 3HPHI , 6X , 4HBETA , 4X , 5HTHETA , 4X , 5HRANGE , / , 1 4X , GEO  3050 
35H  ,4X,7HH20(4M),5X,4HHN03,6X,4HAER2,6X,4HAER3,6X,4HAER4,3X,5  GEO:3060 

48X , 6HDRANGE / / )  GEO  3070 

230  FORMAT  (/10X,8H  W(l-8)-8(E14.3)/74X,E14.3,28X,E14.3/)  GEO  3080 

235  FORMAT  (69H  TRAJECTORY  MISSES  EARTHS  ATMOSPHERE.  CLOSEST  DISTANCE  GEO  3090 


10F  APPROACH  IS,F10.2,1X,/,1X,L8HEND  OF  CALCULATION)  GEO  3100 
240  FORMAT  (3X,F8.3,9X,1P5E10.3,55X,0PF7.2,/)  GEO:3110 
245  FORMAT  <I4,F8.3,1P8E10.3,0P4F8.3,F7.1)  GE0:3120 
250  FORMAT  (8H  HMIN  -  ,F10.3)  GEO  3130 
255  FORMAT  (64H  PATH  INTERSECTS  EARTH  -  PATH  CHANGED  TO  TYPE  2  WITH  H2GE0  3140 


3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 

!  ] 


I  - 
[ 

| 

! 

I 

I 

i 

I 


I 


i: 


1  -  0.0  KM)  GEO 

260  FORMAT  (84H  CHOICE  OF  TWO  PATHS  FOR  THIS  CASE  -SHORTEST  PATH  TAXENGEO 
1.  FOR  LONGER  PATH  SET  LEN-1.)  GEO 

265  FORMAT  (85H  CHOICE  OF  TWO  PATHS  FOR  THIS  CASE  -LONGEST  PATH  TAKEN. GEO 
1  FOR  SHORT  PATH  SET  LEN  -  0  )  GEO 

270  FORMAT  (74H  H2  HAS  SET  LESS  THAN  HMIN  AND  HAS  BEEN  RESET  EQUAL  TO  GEO 
1  HMIN  I.E.  H2  -  ,F10.3)  GEO 

275  FORMAT  (/30X,4HAER2,10X,4HAER3, 10X,4HAER4,5X,9HR.H.  MEAN./10X.10H  GEO 
1V(12-15)-,4(1PE14.3)/)  GEO 

280  FORMAT  (118X,11HNITRIC  ACID)  GEO 

END  GEO 


SUBROUTINE  ANGL  (HI ,H2, ANGLE, B1 ,LEN,M,NL,RE,PI,ML) 

ANG 

10 

DOUBLE  PRECISION  HZ.SEASN.VULCN 

ANG 

:11 

COMMON  /MDATA/  Z(34) ,P(7 ,34) ,T(7 ,34) ,WH(7 ,34) ,VO(7 ,34) 

ANG 

20 

1  ,SEASN(2) ,VULCN(5) ,VSB(9) ,H2(15) ,HMIX(34) 

ANG 

30 

COMMON  /DEVNUM/  NIN , NOUT .NSTOR ,NPLT , NTBL 

ANG 

:31 

COMMON  RELHUM(34) ,HSTOR(34) ,EH( 15,34 ),ICH(4) ,VH(1S) ,TX(15) 

ANG 

40 

COMMON  WLAY(34,15),WPATH(68,15),TBBY(68),PR£S(68) 

ANG 

*50 

COMMON  ABSC(4,40),EXTC(4,40),VX2(40) 

ANG 

60 

c 

****************************************************************** ang 

70 

c 

ANG 

80 

c 

THIS  SUBROUTINE  CALCULATES  THE  INITIAL  ZENITH  ANGLE  (ANGLE) 

ANG 

90 

c 

TARING  INTO  ACCOUNT  REFRACTION  EFFECTS  GIVEN  H1.H2,  AND  BETA 

ANG 

100 

c 

(WHERE  BETA  IS  THE  EARTH  CENTRE  ANGLE  SUBTENDED  BY  HI  AND  H2  ), 

ANG 

110 

c 

ASSUMING  THE  REFRACTIVE  INDEX  TO  BE  CONSTANT  IN  A  GIVEN  LAYER. 

ANG 

120 

c 

FOR  GREATER  ACCURACY  INCREASE  THE  NUMBER  OF  LEVELS  IN  THE  MODEL 

ANG 

130 

c 

ATMOSPHERE. 

ANG 

140 

c 

ANG 

150 

c 

THIS  SUBROUTINE  CAN  BE  REMOVED  FROM  THE  PROGRAM  IF  NOT  REQUIRED. 

ANG 

160 

c 

******************************************************************^c 

170 

IP-99 

ANG 

180 

CA-PI/180. 

ANG 

190 

X1-RE+H1 

ANG 

200 

X2-RE4H2 

ANG 

210 

LEN-0 . 

ANG 

220 

IT-0 

ANG 

230 

Bl-Bl*CA 

ANG 

240 

TANG-X2*SIN(B1)/(X2*C0S(B1) -XI ) 

ANG 

250 

THET-ATAN (TANG ) 

ANG 

260 

IF  (THET.LT.O.O)  THET-THET+PI 

ANG 

270 

SPHI-SIN(THET) 

ANG 

280 

ANG-THET/CA 

ANG 

290 

TN-THET 

ANG 

300 

TM-TN-0.5*CA 

ANG 

310 

5  ANGLE-THET 

ANG 

320 

FBT-0 . 

ANG 

330 

BETA-O. 

ANG 

340 

BET 1-0 

ANG 

350 

BET2-0 

ANG 

360 

FBT1-0 

ANG 

370 

FBT2-0 

ANG 

380 

FBT3-0.0 

ANG 

390 

IF  (Bl.LE.O.O)  GO  TO  10 

ANG 

400 

Y-2 ,*THET 

ANG 

410 

IF  (Y-PI.GT.1.0E-8)  GO  TO  45 

ANG 

420 

IF  (IP.EQ.100)  GO  TO  30 

ANG 

430 

XMIN-X2*C0S(B1 )-RE 

ANG 

440 

IF  (XMIN-H1)  40,20,20 

ANG 

450 

10  HMIN-H2 

ANG 

460 

H2-H1 

ANG 

470 

Hl-HMIN 

ANG 

480 

15  ANGLE-0. 5*PI 

ANG 

490 

THET-ANGLE 

ANG 

500 

S PHI-1 .0 

ANG 

510 

D-25 


:nw'’  • 


ANG-ANGLE/CA 

ANG 

520 

20  IP-100 

ANG 

530 

CALL  POINT  (H1,YN,N,NP,IP) 

ANG 

540 

Jl-N 

ANG 

550 

TX1-TX(9) 

ANG 

560 

25  CALL  POINT  (H2,YN,N,NP,IP) 

ANG 

570 

IP  (NP.EQ.l)  N-N-l 

ANG 

580 

J2-N 

ANG 

590 

IF  (J1.EQ.J2)  TX1-TX1+YN-EH(9,J1) 

ANG 

600 

30  DO  35  J-J1.J2 

ANG 

610 

X1-RE+Z(J) 

ANG 

620 

X2-RE+Z( J+l ) 

ANG 

630 

IP  (J.EQ.J1)  X1-RE4B1 

ANG 

640 

IF  (J.EQ.J2)  X2-RE+H2 

ANG 

650 

SALP-X1 *SPHI /X2 

ANG 

660 

ALP-ASIN(SALP) 

ANG 

670 

RN-EH(9,J+1)/EH<9,J) 

ANG 

680 

IF  ((J+1).EQ.J2)  RN-YN/EH(9,J) 

ANG 

690 

IF  (J.EQ.J1)  RN-EH(9,J+1 )/TXl 

ANG 

700 

IF  ( (J+l ) .EQ. J2 .AND. J .EQ. J1 )  RN-YN/TX1 

ANG 

710 

BET-THET-ALP 

ANG 

720 

FB— TAN(ALP) 

ANG 

730 

IF  (J.NE.J1)  FB-FB+TANCTHET) 

ANG 

740 

FBT-FBT+FB 

ANG 

750 

BETA-BETA+BET 

ANG 

760 

TH1-THET/CA 

ANG 

770 

BE-BET/CA 

ANG 

780 

C-ALP/CA 

ANG 

790 

IF  (X2.EQ.RE+H2)  C-PI-ALP 

ANG 

800 

IF  (SALP.GE.RN)  RN-1 . 

ANG 

810 

SPHI-S ALP/BN 

ANG 

820 

THET-ASIN(SPHI) 

ANG 

830 

35  CONTINUE 

ANG 

840 

IF  (B1.LE.0.0)  GO  TO  125 

ANG 

850 

GO  TO  115 

ANG 

860 

40  CONTINUE 

ANG 

870 

TANG— TANG 

ANG 

880 

ANGLE-PI-ANGLE 

ANG 

890 

TN-ANGLE 

ANG 

900 

ANG-ANGLE/CA 

ANG 

910 

IF  (H1.LE.0.0)  GO  TO  15 

ANG 

920 

45  CONTINUE 

ANG 

930 

IP-101 

ANG 

940 

CALL  POINT  (H1,YN,N,NP1,IP) 

ANG 

950 

TX1-TX(9 ) 

ANG 

960 

YN1-YN 

ANG 

970 

IF  (NP1.EQ.1)  N-N-l 

ANG 

980 

J2-NL 

ANG 

990 

IF  (M.EQ.7)  J2-ML 

ANG 

1000 

Jl-N 

ANG 

1010 

J-Jl+1 

ANG 

1020 

IF  (H2.GE.H1)  GO  TO  65 

ANG 

1030 

CALL  POINT  <H2,YN,N,NP,IP) 

ANG 

1040 

TX2-TX(9) 

ANG 

1050 

YN2-YN 

ANG 

1060 

J2-N 

ANG 

1070 

IF  (J1.EQ.J2)  TX2-YN14TX(9)-EH(9,J1) 

ANG 

1080 

50  J-J-l 

ANG 

1090 

X1-RE+Z(J+1) 

ANG 

1100 

X2-R£+Z(J) 

ANG 

1110 

IF  (J.EQ.J1)  X1-RE4B1 

ANG 

1120 

IF  (J.EQ.J2)  X2-RE+H2 

ANG 

1130' 

SALP-X1*SPHI/X2 

ANG 

1140 

HMIN“X1*SPHI-RE 

ANG 

1150 

IF  (SALP.LE.1.0)  GO  TO  55 

ANG 

1160 

SALP-SPHI 

ANG 

1170 

IF  (HMIN.GT.H2)  GO  TO  80 

ANG 

1180 

55  ALP-ASIN(SALP) 

ANG 

1190 

THET-ASIN(SPHI) 

ANG 

1200 

BET-ALP-THET 

ANG 

1210 

BET1-BET1+BET 

ANG 

1220 

FB-TAN(ALP) 

ANG 

1230 

IF  (J.NE.J1)  FB-FB-TAN(THET) 

ANG 

1240 

FBT1-FBT1+FB 

ANG 

1250 

THl-THET/CA 

ANG 

1260 

BE-BET/CA 

ANG 

1270 

AL-ALP/CA 

ANG 

1280 

IF  (X2.EQ.RE+H2)  C -PI -ALP 

ANG 

1290 

REF-EH(9,J) 

ANG 

1300 

IF  (J.EQ.J1)  REF-YN1 

ANG 

1310 

IF  (J.EQ.J2)  REF-TX2 

ANG 

1320 

IF  (J.EQ.l)  GO  TO  60 

ANG 

1330 

RN-EH(9.J)/EH(9,J-1) 

ANG 

1340 

IF  (J.EQ.J1)  RN-YN1/EH(9,J-1) 

ANG 

1350 

IF  (J.EQ.J2+1)  RM-REF/TX2 

ANG 

1360 

IF  (J.EQ.J2)  RN-REF/YN2 

ANG 

1370 

IF  (SALP.GE.RN)  RN-1 . 

ANG 

1380 

SPHI-SALP*RN 

ANG 

1390 

IF  (Z(J).LE.H2)  GO  TO  60 

ANG 

1400 

GO  TO  50 

ANG 

1410 

60  X1-X2 

ANG 

1420 

IF  (ABS(Z(J)-H2).LT.1.0E-10.AND.J.NE.l)  GO  TO  65 

ANG 

1430 

GO  TO  70 

ANG 

1440 

65  J-J-l 

ANG 

1450 

X1-RE+Z( J+l ) 

ANG 

1460 

IF  (J.EQ.J1)  X1-RE+H1 

ANG 

1470 

IF  (J.EQ.J2.AND.J.NE.J1)  X1-RE4B2 

ANG 

1480 

70  X2-RE+Z(J) 

ANG 

1490 

HMIN-X1*SPHI-RE 

ANG 

1500 

IF  (HMIN.LE.0.0)  GO  TO  110 

ANG 

1510 

IF  (Z(J).LT.HMIN)  GO  TO  80 

ANG 

1520 

REF"EH(9, J) 

ANG 

1530 

IF  (J.EQ.J2)  REF-YN 

ANG 

1540 

SALP-X1 *SPHI /X2 

ANG 

1550 

ALP-ASIN(SALP) 

ANG 

1560 

THET-ASIN(SPHI) 

ANG 

1570 

BET-ALP-THET 

FB-TAN(ALP)-TAN(THET) 

FBT2-FBT2+FB 

BET2-BET2+BE1 

BMIN-BET1+BET2 

AL-ALP/CA 

TH1-THET/CA 

RN-REF/EH(9 , J-l ) 

IF  (SALP.GE.RN)  RN-1.0 

SPHI-SALP*RN 

GO  TO  65 

75  TX3-YN1+TX(9)-EH(9,J1) 

TN1-TX3 

IF  (ABS(H2-Z(J+l)).L£.1.0E-5)  YN1-TX(9) 

IF  (ABS(Hl-Z(J+l)).LE.1.0E-5)  YN1-TX(9) 

RN-1.0 
GO  TO  85 

80  CALL  POINT  (HMIN,YN,N,NP,IP) 

IP-102 

TX3-TX(9) 

IF  (J.EQ.J1 .AND.H2.GE.H1)  GO  TO  75 
IF  (J.EQ.J1.0R.J.EQ.J2)  TX3-YN2+TX(9)-EH(9,J) 

IF  (HMIN.GT.H2)  TX3-TX(9) 

IF  (J.EQ. J1 .AND.HMIN.GT.H2)  GO  TO  75 
RN-REF/TX3 

IF  (SALP.GE.RN)  RN-1. 

SPHI-SALP*RN 
X-X1*S PHI-RE 
DIF-ABS (HMIN-X ) 

HMIN-X 

IF  (DIF-1 .OE-5)  85,85,80 
85  X2-RE+HHIN 

THET-ASIN(SPHI) 

IF  (RN.EQ.1.0)  FBT3— TAN(THET) 

IF  (RN.EQ.1.0)  GO  TO  90 

DNX-(TX3-1 .0)*ALOG((TX3-1 .0)/ (REF-1 .0))/(X2-Xl ) 
FBT3— TAN(THET )*( 1 .0-1 .0/(1 .0+TX3/(X2*DNX))) 

90  BET-0 . 5*PI-THET 
BET2-BET2+BET 
BMIN-BET 1+BET2 
IF  (H2.GE.H1)  GO  TO  100 
BET-BET1+2 .*8ET2 
DB1-B1-BET1 
DB2-BET-B1 
DB3-ABS ( BMIN-B1 ) 

IF  (DB3.GT.DB1.AND.DB2.GT.DB1)  GO  TO  110 
IF  (DB2.GT.DB3)  GO  TO  95 
IF  (DB2.GT.DB1)  GO  TO  110 
BETA-BET 

FBT-FBT1+2 .0*(FBT2+FBT3 ) 

LEN-1. 

GO  TO  115 
95  BETA-BET 1+BET2 


ANG  1580 
ANG  1590 
ANG  1600 
ANG  1610 
ANG  1620 
ANG  1630 
ANG  1640 
ANG  1650 
ANG  1660 
ANG  1670 
ANG  1680 
ANG  1690 
ANG  1700 
ANG  1710 
ANG  1720 
ANG  1730 
ANG  1740 
ANG  1750 
ANG  1760 
ANG  1770 
ANG  1780 
ANG  1790 
ANG  1800 
ANG  1810 
ANG  1820 
ANG  1830 
ANG  1840 
ANG  1850 
ANG  1860 
ANG  1870 
ANG  1880 
ANG  1890 
ANG  1900 
ANG  1910 
ANG  1920 
ANG  1930 
ANG  1940 
ANG  1950 
ANG  1960 
ANG  1970 
ANG  1980 
ANG  1990 
ANG  2000 
ANG  2010 
ANG  2020 
ANG  2030 
ANG  2040 
ANG  2050 
ANG  2060 
ANG  2070 
ANG  2080 
ANG  2090 
ANG  2100 


FBT-FBT1+FBT2+FBT3 
GO  TO  115 

100  BETA-2. 0*(BET1+BET2) 

LEN-1. 

FBT-2 .0*(FBT1+FBT2+FBT3 ) 

WRITE  (N0UT.130)  J , BETA , FBT , FBT1 , FBT2 , FBT3 , TX1 , YN1 

IF  (H2.EQ.H1)  GO  TO  115 

IP-103 

IF  (NP1.EQ.1)  Jl-Jl+1 
SPHI-SIN( ANGLE) 

IF  (Z(J1+1).LE.H2)  GO  TO  105 
RN-TX1/YN1 

IF  (SPHI.GE.RN)  RN-1 . 

SPHI-SPHI/RN 

THET-ASIN(SPHI) 

GO  TO  25 

105  CALL  POINT  (H2,YN,N,NP,IP) 

TX1 -TX1+YN-EH  (  9 ,  J1 ) 

RN-TX1/YN1 

J2-J1 

IF  (SPHI.GE.RN)  RN-1. 

SPHI-SPHI/RN 

THET-ASIN(SPHI) 

GO  TO  25 
110  BETA-BET 1 
LEN-0 . 

FBT-FBT1 

115  THET-ANGLE+(B1-BETA)/(1.+FBT/TANG) 

DBETA-BETA/CA 

B-BET1/CA 

TH1-THET/CA 

WRITE  (NOUT,135)  BETA, DBETA, FBT, TH 1 , TANG 
IF  (THET.GT.TN. OR.THET.LT. TM)  THET-(TN+TM)/2 . 
TH1-THET/CA 

WRITE  (NOUT.135)  BET1 ,B,FBT,TH1 

TN1-TN/CA 

TM1-TM/CA 

WRITE  (NOUT.140)  TN,TM,TN1 ,TM1 
SPHI-SIN(THET) 

TANG-TAN (THET ) 

IT-IT+1 

DBE-ABS(Bl-BETA) 

DTH-ABS ( ANGLE-THET ) 

IF  (IT.EQ.10)  THET-0 . 5* ( ANGLE+THET ) 

IF  (IT.EQ.10)  GO  TO  120 

IF  (DBE.GT. 1 .0E-7 .ANL.DTH.GT. 1 .OE-7 )  GO  TO  5 
120  ANGLE -THET/CA 

WRITE  (NOUT.145)  ANGLE, IT 
RETURN 
125  H1-H2 

ANGLE -C/CA 

WRITE  (N0UT.145)  ANGLE, IT 
RETURN 


ANG  2110 
ANG  2120 
ANG  2130 
ANG  2140 
ANG  2150 
ANG:2160 
ANG  2170 
ANG  2180 
ANG  2190 
ANG  2200 
ANG  2210 
ANG  2220 
ANG  2230 
ANG  2240 
ANG  2250 
ANG  2260 
ANG  2270 
ANG  2280 
ANG  2290 
ANG  2300 
ANG  2310 
ANG  2320 
ANG  2330 
ANG  2340 
ANG  2350 
ANG  2360 
ANG  2370 
ANG  2380 
ANG  2390 
ANG  2400 
ANG  2410 
ANG: 2420 
ANG  2430 
ANG  2440 
ANG: 2450 
ANG  2460 
ANG  2470 
ANG: 2480 
ANG  2490 
ANG  2500 
ANG  2510 
ANG  2520 
ANG  2530 
ANG  2540 
ANG  2550 
ANG  2560 
ANG  2570 
ANG: 2580 
ANG  2590 
ANG  2600 
ANG  2610 
ANG: 2620 
ANG  2630 
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SUBROUTINE  POINT  (X,YN,N,NP,IP)  POI 

REVISED  12  DEC  79  POI 

DOUBLE  PRECISION  HZ.SEASN.VULCN  POI 

COMMON  /CARD1/  MODEL, IHA2E,ITYPE,LEN,JP,IM, Ml ,M2,M3,ML,IEMISS,RO  POI 
1  ,TBOUND,ISEASN,IVULCN,VIS,JBMOD  POI 

COMMON  /CARD2/  HI ,H2, ANGLE, RANGE .BETA, HMIN, RE  POI 

COMMON  /CARD3/  VI ,V2,DV,AVW,CO,CW,W(15) ,E(15) ,CA,PI  POI 

COMMON  /CNTRL/  LENST,XMAX,M,IJ,J1 ,JL,JMIN,JEXTRA,IL,IKHAX,NLL,NP1  POI 
1 ,IFIND,NL,IKLO  POI 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),WR(7,34),WO(7,34)  POI 

1  ,SEASN(2) ,VULCN(5) ,VSB(9) ,HZ(15) ,HMIX(34)  POI 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL  POI 

COMMON  RELHUM(34),HSTOR(34),EH(15,34),ICH(4),VH(l5),TX(15)  POI 

COMMON  WLAY(34,15) ,WPATH(68, 15) ,TBBY(68) ,PRES(68)  POI 

COMMON  ABSC(4,40) ,EXTC(4,40) ,VX2(40)  POI 

******************************************************************poi 
SUBROUTINE  POINT  COMPUTES  THE  MEAN  REFR.  INDEX  ABOVE  AND  BELOW  POI 
A  GIVEN  ALTITUDE  AND  INTERPOLATES  EXPONENTIALLY  TO  DETERMINE  THE  POI 
EQUIVALENT  ABSORBER  AMOUNTS  AT  THAT  ALTITUDE.  POI 

POI 

******************************************************************poi 

POI 

X  IS  THE  HEIGHT  IN  QUESTION  POI 

TX(9)  AND  YN  ARE  THE  KEAN  REFRACTIVE  INDICES  ABOVE  AND  BELOW  X  POI 
N  IS  THE  LEVEL  INTEGER  CORRESPONDING  TO  X  OR  THE  LEVEL  BELOW  X  POI 
NP  -1  IF  X  COINCIDES  WITH  MODEL  ATMOSPHERE  LEVEL  ,IF  NOT  NP  -  0  POI 
TX(l-8)  ARE  ABSORBER  AMOUNTS  PER  RM  AT  HEIGHT  X  POI 

******************************************************************POX 
N-NL  POI 

NP-0  POI 

IF  (X.LT.O.O)  X-Z(l)  POI 

IF  (X.GT.Z(NL))  GO  TO  20  POI 

DO  5  I-l.NL  POI 

N-I  POI 

IF  (X-Z(I))  10,20,5  POI 

5  CONTINUE  POI 

10  J2-N  POI 

N-N-l  POI 

MM1-M  POI 

IF(M1.GT.0.AND.M.LT.7)  MM1-M1  POI 

MM2-M  POI 

IFCM2.GT.O.AND.M.LT.7)  MM2-M  POI 

FAO(X-Z(N))/(Z(J2)-Z(N))  POI 

PX1-P(MM1,N)*(P(MM1,J2)/P(MM1,N))**FAC  POI 

TX1-T(MM1 ,N)*(T(MM1 ,J2)/T(MM1 ,N))**FAC  POI 

WX1-WH(MM2,N)*(WH(MM2 , J2 ) /WH(MM2 ,N) )**FAC  POI 

TX(3 )-CO*PXl /TX1-4 . 56E-6*WX1  *TX1 *CW  POI 

TX(2)-C0*P(MM1,J2)/T(MM1,J2)-4.56E-6*WH(MM2,J2)*T(MM1,J2)*CW  POI 

TX( l )-CO*P(MMl ,N)/T(MM1 ,N>-4 ,56E-6*WH(MM2 ,N)*T(MM1 ,N)*CW  POI 

TX(9)-0.5E-6*(TX(2)+TX(3))  POI 

YN«0.5E-6*(TX(1 )+TX(3))  POI 

IF  (IP.EQ.O)  GO  TO  35  POI 

DO  15  K-l.XMAX  POI 


IF  (K.EQ.9)  GO  TO  15 

POI 

520 

TX(K)-0.0 

POI 

530 

IF  (EH(K.N).GT. 1000.0)  GO  TO  15 

POI 

540 

IF  (X.LE. 100.0)  TX(K)-EH(K,N)+FAC*(EH(X,J2)-EH(K,N)) 

POI 

550 

IF  (ER(K,N) .EQ.0.0.0R.EH(K, J2) .EQ.0.0)  GO  TO  15 

POI 

560 

TX(K)-EH(K,N)*(EH(K,J2)/EH(K,N))**FAC 

POI 

570 

15 

CONTINUE 

POI 

580 

GO  TO  35 

POI 

590 

20 

NP-1 

POI 

600 

IF  (IP.EQ.O)  GO  TO  30 

POI 

610 

DO  25  K-l.KMAX 

POI 

620 

25 

TX(K)-EH(K,N) 

POI 

630 

30 

TX(9)-EH(9,N)-1. 

POI 

640 

YN-0.0 

POI 

650 

CARDS  B  24  AND  50  THROUGH  59  ARE  NO  LONGER  REQUIRED 

POI 

660 

IF  (N.GT.l)  YN-EH(9 , N-l )-l .0 

POI 

670 

35 

CONTINUE 

POI 

680 

IF  (IP.EQ.l)  VRITE  (NOUT.45)  X,N,NP,TX(9),YN,IP,(TX(K),K-1,8) 

POI 

:690 

IF  (IP.EQ.l)  WRITE  (NOUT.40)  (TX(K),K-12,14) 

POI 

:700 

TX(9)-TX(9)+1. 

POI 

710 

YN-YN+1 . 

POI 

720 

RETURN 

POI 

730 

POI 

740 

40 

FORMAT  (//5X,11H  TX(12-14)-,3E10.3/) 

POI 

750 

45 

FORMAT  (/,20H  FROM  POINTS  HEIGHT-, F10. 4 ,6H  KM,N-,I3,4H,NP-,I2 

,28H,POI 

760 

1REF.  INDEX  ABOVE  &  BELOV  X-.2E11 .4 ,4H, IP-,13, /, 12X.36HEQUIV. 

ABSORPOI 

770 

2BER  AMOUNTS  PER  KM  AT  X-.8E10.3) 

POI 

780 

END 

POI 

790 

on  o  o  o  o  o 


SUBROUTINE  EXABIM 


EXA 
EXA 

LOADS  EXTINCTION  AND  ABSORPTION  COEFFICIENTS  FOR  THE  FOUR  EXA 

AEROSOL  ALTITUDE  REGIONS  EXA 

EXA 

DOUBLE  PRECISION  HZ.SEASN.VULCN  EXA 

COMMON  /CARD1/  MODEL, IHAZZ, ITTPE .LZN.JP ,IM, Ml ,M2 ,M3,ML,IEMISS,RO  EXA 
1  , TBOCND , ISEASN , IVULCN , VIS , JBMOD  EXA 

COMMON  /CARD2/  HI ,H2, ANGLE .RANGE .BETA, HMIN, RE  EXA 

COMMON  /CARD3/  V1,V2,DV,AVW,C0,CW,W(15),E(15),CA,PI  EXA 

COMMON  /CNTRL/  LENST,KMAX,MD,IJ, J1 ,J2,JMIN,JEXTRA,IL,IKMAX,NLL,NP1EXA 
1 , IFIND.NL, IKLO  EXA 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),WH(7,34),WO(7,34)  EXA 

1  , SEASN(2) ,VULCN(5) ,VSB(9) ,HZ(15) ,HMIX(34)  EXA 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL  EXA 

COMMON  RELHUM(34),HSTOR(34),EH(15,34),ICH(4),VH(15),TX(15)  EXA 

COMMON  ULAY(34, 15) tHPATH(68,15) ,TBBY(68) ,PRES(68)  EXA 

COMMON  ABSC(4,40),EXTC(4,40),VX0(40)  EXA 

COMMON  /EXTDTA/  VX2(40) ,RUREXT(40,4) ,RURABS(40,4) ,URBEXT(40,4) ,  EXA 
1URBABS(40,4) ,OCNEXT(40,4) ,0CNABS(40,4) ,TROEXT(40,4) ,TR0ABS(40,4) ,  EXA 
2FG1EXT(40) ,FG1ABS(40) .FG2EXTC40) ,FG2ABS(40)  EXA 

3 , BSTEXT(40 ) ,BSTABS(40 ) , AVOEXT (40 ) .AVOABS (40 ) ,FV0EXT(40  EXA 

4) ,FV0ABS(40) ,DMEEXT(40) ,DMEABS(40)  EXA 

DIMENSION  RHZ0NE(4)  EXA 

DATA  RHZONE  /O. ,70. ,80. ,99./  EXA 

WRITE  (NOUT, 90)  (ICH(I),I-1 ,4)  EXA 

CALL  EXTDTA  EXA 

DO  5  1-1,40  EXA 

5  VXO(I )-VX2(I)  EXA 

1 1-1  EXA 

IF  (IHAZE.EQ.7)  11-2  EXA 

DO  85  M-11,4  EXA 

ITA-ICH(M)  EXA 

ITC-ICH(M)-7  EXA 

WRH-W( 15)  EXA 

IF  (ICH(M) .EQ.6.AND.M.NE.1)  WRH-70.  EXA 

THIS  CODING  DOES  NOT  ALLOW  TROP  RH  DEPENDENT  ABOVE  EH(7,I)  EXA 

DEFAULTS  TO  TROPOSPHERIC  AT  70.  PERCENT  EXA 

DO  10  1-2,4  EXA 

IF  (WRH.LT.RHZONE(I))  GO  TO  15  EXA 

10  CONTINUE  EXA 

1-4  EXA 

15  II-I-l  EXA 

IF(WRH.GT. 0.0. AND.WRH.LT. 99. )X-AL0G(100.0-WRH)  EXA 

Xl-ALOGdOO.O-RHZONE(II))  EXA 

X2-AL0G (100. O-RHZONE ( I ) )  EXA 

IF  (WRH.GE.99.0)  X-X2  EXA 

IF  (WRH.LE.O.O)  X-Xl  EXA 

DO  80  N-1,40  EXA 

ABSC(M,N)-0.  EXA 

EXTC(M,N)-0.  EXA 

IF(ITA.GT.6)  GO  TO  45  EXA 

IF(ITA.LE.O)  GO  TO  80  EXA 


10 
20 
30 
40 
50 
:51 
60 
*70 
80 
90 
100 
110 
120 
130 
:  13 1 
140 
*150 
160 
170 
180 
190 
200 
210 
220 
:230 
:240 
:250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
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C  SB  DEPENDENT  AEROSOLS 

GO  TO  (20,20,25,25,30,35),  ITA 

20  Y2-ALOG(RUREXT(N,I)) 

Yl-ALOG(RUREXI(N ,11 ) ) 

Z2-ALOG (RURABS (N , I ) ) 

Zl*ALOG(RURABS(N,II)) 

GO  TO  40 

25  Y2-AL0G(0CNEXT(N,I)) 

Y1*AL0G(0CNEXT(N,II)) 

Z2“ALOG ( OCNABS ( N , I ) ) 

Zl-ALOGCOCNABS (N ,11 ) ) 

GO  TO  40 

30  Y2«ALOG(URBEXT(N,I)) 

Yl-ALOG(URBEXT(N,II)) 

Z2*ALOG (URBABS (N , I ) ) 

Zl-ALOG(URBABS(N,II)) 

GO  TO  40 

35  Y2-ALOG(TROEXT(N,I)) 

Yl«ALOG(TROEXX(N , II ) ) 

Z2**ALOG  (TROABS  (N ,  I )  ) 

Zl-ALOG(TROABS(N,II )) 

40  Y-Y1+(Y2-Y1)*(X-X1)/(X2-X1) 

ZK«Z1+(Z2-Z1 )*(X-X1 )/(X2-Xl ) 

ABSC(M,N)-EXP(ZK) 

EXTC(M,S)-EXP(Y) 

GO  TO  80 

45  IF  (ITA.GT.14)  GO  TO  75 
IF  (ITC.LT. 1)  GO  TO  80 
GO  TO  (50,55,60,65,70,65,70),  ITC 

50  ABSC(M,N)«FG1ABS(N) 

EXTC(M,N)-FG1EXT(N) 

GO  TO  80 

55  ABSC(M,N)-FG2ABS(N) 

EXTC(M,N)-FG2EXT(N) 

GO  TO  80 

60  ABSC(M,N)-BSTABS(N) 

EXTC(M,N)"BSTEXT(N) 

GO  TO  80 

65  ABSC(M,N)-AVOABS(N) 

EXTC(M,N)-AVOEXT(N) 

GO  TO  80 

70  ABSC(H,N)-FVOABS(N) 

EXTC(M,N)-FVOEXT(N) 

GO  TO  80 

75  ABSC(M,N)-DMEABS(N) 

EXrC(M,N)-DMEEXT(N) 

80  CONTINUE 

85  CONTINUE 

WRITE  (NOUT.95) 

C  WRITE  (NOUT.lOO)  (VX2(N),(EXTC(M,N),ABSC(M,N),H-1,4),N-1,40) 
RETURN 
C 

90  FORMAT  (7H  ICH  ,415) 


EXA  520 
EXA  530 
EXA  540 
EXA  550 
EXA  560 
EXA  570 
EXA  580 
EXA  590 
EXA  600 
EXA  610 
EXA  620 
EXA  630 
EXA  640 
EXA  650 
EXA  660 
EXA  670 
EXA  680 
EXA  690 
EXA  700 
EXA  710 
EXA  720 
EXA  730 
EXA  740 
EXA  750 
EXA  760 
EXA  770 
EXA  780 
EXA  790 
EXA  800 
EXA  810 
EXA  820 
EXA  830 
EXA  840 
EXA  850 
EXA  860 
EXA  870 
EXA  880 
EXA  890 
EXA  900 
EXA  910 
EXA  920 
EXA  930 
EXA  940 
EXA  950 
EXA  960 
EXA  970 
EXA  980 
EXA  990 
EXA: 1000 
EXA: 1010 
EXA  1020 
EXA  1030 
EXA  1040 
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EXA  1050 
EXA  1060 
EXA  1070 


j  95  FORMAT  (40H  EXTINCTION  AND  ABSORPTION  COEFFICIENTS) 

100  FORMAT  (F10.4,8F10.5) 
i  END 
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SUBROUTINE  PATH  PAT 

MODIFIED  FOR  5CM-I  BAND  MODEL  OPTION  -  OCTOBER  1980  PAT 

REVISED  12  DEC  79  PAT 

LOADS  CUMULATIVE  ABSORBER  AMOUNTS  INTO  THE  MATRIX  WPATH  FROM  WLAY  PAT 
POR  THE  ATMOSPHERIC  SLANT  PATH  PAT 

USED  FOR  RADIANCE  CALCULATIONS  PAT 

PAT 

DOUBLE  PRECISION  HZ,SEASN,VULCN  PAT 

COMMON  /CARD1/  MODEL, IHAZE,ITYPE,LEN,JP,IM,  Ml ,M2,M3,ML,IEMISS,R0  PAT 
1  , TBOUND , ISEASN , IVULCN , VI S , JBMOD  PAT 

COMMON  /CARD 2/  HI ,H2, ANGLE, RANGE, BETA, HMIN, RE  PAT 

COMMON  /CARDS/  V1,V2,DV,AVW,C0,CW,W(15),E(15),CA,PI  PAT 

COMMON  /CNTRL/  LENST,KMAX,M,IJ, J1 ,J2,JMIN,JEXTRA,IL,IKMAX,NLL,NP1  PAT 
1 ,IFIND,NL,IKLO  PAT 

COMMON  /MDATA/  Z(34) ,P{7 ,34) ,T(7 ,34) ,WH(7 ,34) ,W0(7,34)  PAT 

1  ,SEASN(2) ,VULCN(5) ,VSB(9) ,HZ(15) ,HMIX(34)  PAT 

COMMON  /DEVNUM/  NI N , NOUT , NSTOR , NPLT , NTBL  PAT 

COMMON  RELHUM(34),HST0R(34),EH(15,34),ICH(4),VH(15),TX(15)  PAT 

COMMON  WLAY(34,15),WPATH(68,15),TBBY(68),PRES(68)  PAT 

COMMON  ABSC(4 ,40) ,EXTC(4 ,40) ,VX2(40)  PAT 

IF  (ITYPE.EQ.l)  GO  TO  60  PAT 

IF  ( J1 .EQ. J2 .AND. J1 .EQ. JMIN)  GO  TO  60  PAT 

IF  (ITYPE.EQ.2.AND.H1.EQ.H2)  J2-J1  PAT 

IF  (H2.GT.H1.AND.ANGLE.GT.90..AND.NP1.EQ.1)  Jl-Jl-1  PAT 

IF  (JEXTRA.EQ.l)  J2-J2+1  PAT 

IF  ((ITYPE.EQ.2).AND.(Hl.GT.H2).AND.(LENST.EQ.l))  J2-J2-1  PAT 

IF  (ITYPE.EQ.3)  J2-NL  PAT 

IF(JP.EQ.O)  WRITE  (N0UT.70)  J1,J2  PAT 

IF(JP.EQ.O)  WRITE  (NOUT, 75)  PAT 

DO  5  IK-1,68  PAT 

TBBY(IK)-0.  PAT 

PRES(IK)  -  0.  PAT 

DO  5  K-l.KMAX  PAT 

WPATH(IK,K)-0.  PAT 

5  CONTINUE  PAT 

LEN-0  PAT 

NLL-NL-1  PAT 

IL-J1+1  PAT 

IJ-IL+NLL  PAT 

DO  10  K-l  ,KMAX  PAT 

E(K)-0.  PAT 

10  CONTINUE  PAT 

IF  ( ANGLE. GT. 90.0)  GO  TO  15  PAT 

LEN-1 .  PAT 

IL-J1-1  PAT 

HMIN-1 .OE-6  PAT 

IJ-NLL  PAT 

15  CONTINUE  PAT 

DO  40  IK-1,68  PAT 

IF  (LEN.EQ.O)  IL-IL-1  PAT 

IF  (LEN.EQ.l)  IL-IL+1  PAT 

IJ-IJ-1  PAT 

IF  (IL.EQ.O)  GO  TO  40  PAT 


10 
*11 
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n  n 


1 


C 

c 

c 


00  20  K-l ,KMAX 

CHECK  FOR  THE  5  CM-1  BAND  MODEL  OPTION. 

WHEN  USED,  WPATH  FOR  THE  FIRST  THREE  SPECIES 
IS  THE  INCREMENTAL  OPTICAL  DEPTH  FOR  EACH  LAYER. 

IF  ((JBMOD.EQ.O)  .OR.  (K.GE.4))  GO  TO  18 
WPATH(IK.K)  -  WLAY(IL.K) 

GO  TO  20 
18  CONTINUE 

W(K)-E(K)+WLAY(IL,K) 

WPATH(IK,K)-W(K) 

20  CONTINUE 

IF  (IL.LE.O. OR.IL.GE.NL)  GO  TO  25 
TBAR-(T(M,IL)+T(M,IL+1))*0.5 

IF(M1 .GT.0.AND.M.LT.7)  TBAR*(T(M1 ,IL)+T(M1 ,IL+1 ))*0.5 
PBAR  -  0.5*(P(M,IL)+P(M,IL+1)) 

IF(M1.GT.0  .AND.  M.LT.7)  PBAR  -  0.5*(P(M1,IL)+P(M1,IL+1)) 

IF  (JEXTRA.EQ.l)  TBAR-(T(M,J1)+T(M,J1+1))*0.5 
25  CONTINUE 

TBBY(IK)-TBAR 
PRES(IK)  -  PBAR 
DO  30  K-l.KMAX 
E(K)-W(K) 

30  CONTINUE 

IF  ( ANGLE. LE. 90.0. AND. IL.EQ.NLL)  GO  TO  50 
IF  (ITYPE.EQ. 3. AND. ANGLE .1Z. 90.0)  CO  TO  35 
IF  (ITYPE.EQ. 3. AND.12N.EQ.1. AND. IL.EQ.J2)  GO  TO  50 
IF  (ITYPE.EQ. 2. AND.LENST.EQ.0.AND.IL.EQ.J2)  GO  TO  50 
IF  (IL.EQ.JMIN.AND.HMIN.GT.O.O)  LEN-i 
IF  (IL.EQ.l.AND.HMIN.LE.O.O)  GO  TO  50 
IF  (LEN.EQ.O)  GO  TO  35 
IF  (IL.EQ.JMIN.AND.IJ.EQ.IL4NLL)  IL-IL-1 
IF  (ITYPE.EQ. 2.AND.IL.EQ.J2)  GO  TO  50 
35  CONTINUE 

IF(JP.EQ.O)WRITE  (N0UT.80)  IK,(WPATH(IK,K) ,K-1 ,8) ,WPATH(IK, 10) , 
1WPATH(IK, 11 ) ,TBBY(IK) , PRES (IK) 

40  CONTINUE 
IKMAX-68 
LEN-LENST 
IF(JP.NE.O)  RETURN 
WRITE  (NOUT.85) 

DO  45  IK-1, IKMAX 

45  WRITE  (NOUT.80)  IK,(WPATH(IK,K),K-12,14) 

RETURN 
50  CONTINUE 

IF(JP.EQ.O)  WRITE  (NOUT.80)  IK,(WPATH(IK,K) ,K-1 ,8) ,WPATH(IK,10) 
1  ,WPATH(IK, 11 ) ,TBBY(IK) ,PR£S(IK) 

IKMAX-IK 
LEN-LENST 
IF( JP.NE.O)  RETURN 
WRITE  (N0UT.85) 

DO  55  IK-1, IKMAX 

55  WRITE  (N0UT,80)  IK,(WPATH(IK,K) ,K-12,14) 


PAT 
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PAT 
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PAT 
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PAT 

600 

PAT 
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PAT 

630 

PAT 

640 

PAT 
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PAT 

660 

PAT 

670 

PAT 

680 

PAT 

690 

PAT 

700 

PAT 
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PAT 

720 

PAT 

730 

PAT 

:740 

PAT 

*750 

PAT 

760 

PAT 

770 

PAT 

780 
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790 
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:820 
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830 

PAT 

840 

PAT 

:850 

PAT 

*860 

PAT 
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:900 

PAT 
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PAT 

:920 

RETURN  pat  930 

60  DO  65  K-l.XMAX  PAT  940 

HPATHd  ,X)-W(K)  PAT  950 

65  CONTINUE  PAT  960 

IF  (H.EQ.O)  Jl-1  PAT  970 

J2-J1  PAT  980 

TBBY(1)-T(M,J1)  PAT  990 

IF(M1 .GT.0.AND.M.LT.7)  TBBY(1 )-T(Ml ,J1 >  PAT  1000 

PRES(l)  -  P(M,J1)  PAT*1001 

IF  (M1.GT.0  .AND.  M.LT.7)  PRES(l)  -  P(M1,J1)  PAT*1002 

IKMAX-1  PAT  1010 

IF(JP.EQ.O)  WRITE  (N0UT.70)  J1,J2  PAT: 1020 

IF(JP.EQ.O)  WRITE  (N0UT.75)  PAT:1030 

IK-1  PAT  1040 

IKMAX-IK  PAT  1050 

IF(JP.EQ.O)  WRITE  (N0UT.80)  IK,(WPATH(IK,K) ,K«1 ,8) ,WPATH(IK,10) ,  PAT: 1060 

1  WPATH(IK,11).TBBY(IK),PR£S(IK)  PAT: 1070 

HMIN-1 .OE-6  PAT  1080 

IF(JP.NE.O)  RETURN  PAT  1090 

WRITE  (N0UT.85)  PAT: 1100 

WRITE  (NOUT.80)  IK,<WPATH(IK,K),R«12,U)  PAT:1110 

RETURN  PAT  1120 

PAT  1130 


70  FORMAT  (913)  PAT  1140 

75  FORMAT  (//.20X.53H  CUMULATIVE  ABSORBER  AMOUNTS  FOR  THE  ATMOSPHERICPAT  1150 
1  PATH,//9X,3HH20,5X,4RC02+,7X,2H03,8X,2HN2,7X,5HH20  C.5X.5HM0L  S,  PAT*1160 
26X.4HAER1 , 5X.5H03  UV.6X.5HH20  C.6X.4HHN03 ,5X,4HTAVE,6X,4HPAVE)  PAT*1170 
80  FORMAT  (I5,IPIOEiO«3,OP2F10.3)  PAT*1180 

85  FORMAT  <//,2X,2HID,4X,4HAER2,7X,4HAER3,7X,4HAER4)  PAT  1190 

END  PAT  1200 


noon  n  nnnnn 


SUBROUTINE  TRANS 

MODIFIED  FOR  5CM-1  BAND  MODEL  OPTION 


MODIFIED  FOR  5CM-1  BAND  MODEL  OPTION  -  OCT.  1980 

REVISED  16  JAN  1980 

CALCULATES  TRANSMITTANCE  AND  RADIANCE  VALUES  BETWEEN  VI  AND  V2 
FOR  A  GIVEN  ATMOSPHERIC  SLANT  PATH 


DOUBLE  PRECISION  HZ,SEASN,VULCN 

COMMON  /CARD1/  MODEL , IHAZE , ITYPE ,LEN ,  JP ,  IM  ,M1 ,M2 ,M3 ,ML,IEMISS , 
1  ,TBOUND,ISEASN,IVULCN,VIS , JBMOD 
COMMON  /CARD2/  HI, H2, ANGLE, RANGE, BETA.HMIN, RE 
COMMON  /CARD3/  V1,V2,DV,AVW,C0,CW,W(15),E(15),CA,PI 
COMMON  /CNTRL/  LENST,KMAX,M,IJ,J1 ,J2,JMIN,JErrRA,IL,IKMAX,NLL, 
1 ,IFIND,NL,IKLO 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),WH(7,34),WO<7,34) 

1  ,SEASN(2) ,VULCN(5) ,VSB(9) ,H2(15) ,HMIX(34) 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL 

COMMON  R£LHUM(34) ,HST0R(34) ,EH(15 ,34) ,ICH(4) ,VH(15) ,TX(15) 

COMMON  WLAY(34,15),WPATH(68,15),TBBY(68),PRES(68) 

COMMON  ABSC(4 ,40) ,EXTC(4 ,40) ,VX2(40) 

COMMON  /TRFWFO/  TR(67) ,FW(67),FO(67) 

COMMON  /C4C5C8/  C4(133) ,C5(15) ,C8(102) 

COMMON  /AER/  XXI ,XX2 ,XX3 ,XX4 , YY1 ,YY2 ,YY3 ,YY4 
DIMENSION  ABS(IS) 

FF(T,V)-1 .190956E-16*(V**5)/(EXP(1 .43879*V/T)-1 .) 

WATTS.  CM- 2  ST-1  MICRON-1 
RADMIN-1 .0E+30 
RADMAX-O. 

VRMIN-0. 

VRMAX-O. 

SUMA-0. 

RADSUM-0 . 

FACTOR-0.5 
CALL  C4DTA 
CALL  TRFN 


CALL  BMDATA  WHEN  USING  THE  5CM-1  BAND  MODEL  OPTION 

IF  (JBMOD.EQ.l)  CALL  BMDATA 

IV1-V1/5. 

IV2-V2/5.+.99 

IV1-IV1*5 

IV2«IV2*5 

IF  (IV1.LT.350)  IV1-350 
IF  (IV2.GT. 50000)  IV2-50000 
IF  (DV.LT.5.)  DV-5. 

IDV-DV 

IV-IV1-IDV 

SET  UP  FILE  NPLT  FOR  THE  PRINT/PLOT  OPTION 
ENDF  -  -1. 

WRITE  (NPLT)  VI ,V2,DV 


ICOUNT-O 

BEGINING  OF  TRANSMITTANCE  CALCULATIONS 
5  IV-IV+IDV 


TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
RO  TRA 
TRA 
TRA 
TRA 
NP1  TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 


i 


SUMV-O. 

TLOLD-1. 

TSOLD-1 . 

IKLO-1 

IKHI  -  IKMAX 

IF  (IEMISS.EQ.O)  IKHI  -  IKLO 

DO  10  JK-1 ,11 

ABS(JK)-0. 

IF  (JK.LE.3)  ABS(JK)— 5. 

10  CONTINUE 

IF  (JP.NE.O)  GO  TO  20 
IF  (1COUNT.EQ.O)  GO  TO  15 
IF  (IC0UNT.EQ.50)  GO  TO  15 
GO  TO  20 
15  ICOUNT-O 

IF  (IEMISS.EQ.O)  WRITE  (N0UT.255) 

20  DO  25  K-l.KMAX 
TXOO-0.0 

IF  (K.LT.4)  TX(K)-1.0 
25  CONTINUE 

ICOUNT-ICOUNT+l 
SUM-O. 0 
V-IV 

I-(IV-350)/5+l 

C  ******************  HN03 

C  HN03  ABSORPTION  CALCULATION 

CALL  HN03  (V,ABS(11)) 

IF  (IV.LT.670)  GO  TO  80 
IF  (IV .LE. 3000)  GO  TO  45 
C  ***  MOLECULAR  SCATTERING 

ABS ( 6 )-V**4 / ( 9 . 267  99E+1 8-1.071 23E+09*V**2 ) 
IF  (IV. LT. 92 00)  GO  TO  80 
IF  (IV.LT. 13000)  GO  TO  65 
C  ***  uv  OZONE 

IF  (IV.LE. 23400)  GO  TO  30 
IF  (IV. GE. 27500)  GO  TO  35 
GO  TO  110 

30  XI-(V-13000.0)/200.(>fl. 

GO  TO  40 

35  XI-(V-27500.0)/500.+57. 

40  N-XI+1 .001 
XD-XI-FLOAT(N) 

ABS(8)-C8(N)+XD*(C8(N)-C8(N-1)) 

IF  (IV.GT. 14500)  GO  TO  110 
GO  TO  65 

C  ***  WATER  VAPOR  CONTINUUM  10  MICRON  REGION 
45  IF  (IV.GT. 1350)  GO  TO  50 

ABS(5 )-(4. 18+5578. 0*EXP (-7. 87E-3*V)) 

GO  TO  55 

50  IF  (IV.LT. 2350)  GO  TO  60 
C  ***  WATER  VAPOR  CONTINUUM  4  MICRON  REGION 
XI-(V-2350.0)/50. 0+1.0 
NH-XI+1 .001 


TRA  440 
TRA  450 
TRA  460 
TRA  470 
TRA  *471 
TRA  *480 
TRA  490 
TRA  500 
TRA  510 
TRA  520 
TRA  530 
TRA  540 
TRA  550 
TRA  560 
TRA  570 
TRA  :580 
TRA  590 
TRA  600 
TRA  610 
TRA  620 
TRA  630 
TRA  640 
TRA  650 
TRA  660 
TRA  670 
TRA  680 
TRA  690 
TRA  700 
TRA  710 
TRA  720 
TRA  730 
TRA  740 
TRA  750 
TRA  760 
TRA  770 
TRA  780 
TRA  790 
TRA  800 
TRA  810 
TRA  820 
TRA  830 
TRA  840 
TRA  850 
TRA  860 
TRA  870 
TRA  880 
TRA  890 
TRA  900 
*•  TRA  910 
TRA  920 
TRA  930 
TRA  940 
TRA  950 
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XH-XI -FLOAT (NH ) 

ABS(10)*C5(NH)+XH*(C5(NH)-C5(NH-1)) 

55  CONTINUE 

IF  (IV.LE.1350.0R.IV.GT.2740)  GO  TO  80 
C  ***  NITROGEN  CONTINUUM 

60  IF  (IV. LT. 2080)  GO  TO  80 
K4-I-346 
ABS(4)-C4(K4) 

GO  TO  80 

C  ***  WATER  VAPOUR 

65  IF  (IV. LT. 12800 .AND. IV.GE. 9875)  GO  TO  70 
IF  (IV.LE.14520.AND. IV.GE. 13400)  GO  TO  75 
GO  TO  85 
70  1*1-135 
GO  TO  80 
75  1*1-255 

80  IF  (JBMOD.NE.l)  CALL  C1DTA  (ABS(1),I) 

85  CONTINUE 

***  UNIFORMLY  MIXED  GASES 

SWITCH  FOR  THE  5CM-1  BAND  MODEL 
IF  (JBMOD.EQ.l)  GO  TO  110 
IF  (IV.LT.8060.AND. IV.GE. 500)  GO  TO  90 
IF  (IV.LT. 13190.AND. IV. GT. 12970)  GO  TO  95 
GO  TO  105 
90  J-I-30 
GO  TO  100 

95  J*(IV-12950)/5+1516 
100  CALL  C2DTA  (ABS(2),J) 

105  CONTINUE 
***  OZONE 

IF  (IV. LT. 575. OR. IV. GT. 3270)  GO  TO  110 
L-I-45 

CALL  C3DTA  (ABS(3),L) 

110  CONTINUE 

CALL  AEREXT  (V) 

INITIAL  CALL  TO  BMOD  FOR  EACH  WAVENUMBER 
IK  -  0 

IF  (JBMOD.EQ.l)  CALL  BMOD(IK.V) 

START  OF  LAYER  LOOP 
DO  210  IK-IKLO.IKHI 
IF  (IEMISS.EQ.O)  GO  TO  120 
DO  115  K-l.KMAX 
W(K)-WPATH(IK,K) 

115  CONTINUE 
120  CONTINUE 
SUM-0. 

DO  125  JK-4,11 
TX(JK)-ABS(JK)*W(JK) 

125  SUM-SUM+TX(JK) 

TX(5)-TX(5)+TX(10) 

SWITCH  FOR  THE  5CM-1  BAND  MODEL  OPTION 


TRA  960 
TRA  970 
TRA  980 
TRA  990 
TRA  1000 
TRA  1010 
TRA  1020 
TRA  1030 
TRA  1040 
TRA  1050 
TRA  1060 
TRA  1070 
TRA  1080 
TRA  1090 
TRA  1100 
TRA  1110 
TRAM  120 
TRA  1130 
TRA  1140 
TRAM141 
TRAM  142 
TRAM  143 
TRA  1150 
TRA  1160 
TRA  1170 
TRA  1180 
TRA  1190 
TRA  1200 
TRA  1210 
TRA  1220 
TRA  1230 
TRA  1240 
TRA  1250 
TRA  1260 
TRA  1270 
TRA  1280 
TRAM281 
TRAM282 
TRAM283 
TRA* 1284 
TRAM290 
TRA  1300 
TRA  1310 
TRA  1320 
TRA  1330 
TRA  1340 
TRA  1350 
TRA  1360 
TRA  1370 
TRA  1380 
TRA  1390 
TRAM391 
TRA* 1392 
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IF  (JBMOD.EQ.O)  GO  TO  128 

TRA*1393 

CALL  BMOD(IK.V) 

TRA* 1394 

c 

SKIP  THE  L0WTRAN5  PART  FOR  H20,  C02+,  AND  03 

TRA*1395 

GO  TO  185 

TRA*1396 

128 

CONTINUE 

TRA*1397 

TX(1)-1.0 

TRA  1400 

Kl-1 

TRA  1410 

IF  (W(l).LT.1.0E-20)  GO  TO  145 

TRA  1420 

IF  (ABS(l).LE.-5.0)  GO  TO  145 

TRA  1430 

WS1 -AL0G1 0  (  W(  1 )  HABS  ( 1 ) 

TRA  1440 

IF  (WS1.LT.-2.3468)  TX(1)-1.-.087787*EXP(1 .855595*WS1) 

TRA  1450 

IF  (WS1 *LT .-2.3468)  GO  TO  145 

TRA  1460 

IF  (WS1.CT.3.5682)  GO  TO  140 

TRA  1470 

IF  (VS1.GT.2.0)  Kl-40 

TRA  1480 

DO  130  K-K1.67 

TRA  1490 

IF  (WSl.LE.FW(K))  GO  TO  135 

TRA  1500 

130 

CONTINUE 

TRA  1510 

135 

TX(1)-TR(K)+(TR(K-1)-TR(K))*(FW(K)-WS1)/(FW(K)-FW(K-1)) 

TRA  1520 

GO  TO  145 

TRA  1530 

140 

TX(l)-0.0 

TRA  1540 

145 

CONTINUE 

TRA  1550 

TX(2)-1.0 

TRA  1560 

Kl-1 

TRA  1570 

IF  (W(2) .LT.1.0E-20)  GO  TO  165 

TRA  1580 

IF  (ABS(2).LE.-5.0)  GO  TO  165 

TRA  1590 

WS2-AL0G10(  W(  2  )  HABS  (2  ) 

TRA  1600 

IF  (WS2.LT .-2. 3468)  TX(2)-1 .-.087787*EXP(1 .855595*WS2) 

TRA  1610 

IF  (WS2.LT. -2. 3468)  GO  TO  165 

TRA  1620 

IF  (WS2.GT.3.5682)  GO  TO  160 

TRA  1630 

IF  (WS2.GT.2.0)  Kl-40 

TRA  1640 

DO  150  K-K1.67 

TRA  1650 

IF  (WS2.LE.FW(K))  GO  TO  155 

TRA  1660 

150 

CONTINUE 

TRA  1670 

155 

TX(2 )-TR(K)+(TR(K-l )-TR(K) )*(FW(K)-WS2 ) / (FW(K)-FW(K-l ) ) 

TRA  1680 

GO  TO  165 

TRA  1690 

160 

TX(2)-0.0 

TRA  1700 

165 

CONTINUE 

TRA  1710 

TX(3)-1. 

TRA  1720 

Kl-1 

TRA  1730 

IF  (W(3) .LT.1.0E-20)  GO  TO  185 

TRA  1740 

IF  (ABS(3).LE.-5.0)  GO  TO  185 

TRA  1750 

WS3-AL0G1 0  (  W(  3  )  HABS  (3  ) 

TRA  1760 

IF  (WS3.LT. -1.6778)  TX(3)-1 .-.055194*EXP(2 .367853*WS3) 

TRA  1770 

IF  (WS3.LT. -1.6778)  GO  TO  185 

TRA  1780 

IF  (WS3.GT.3.9345)  GO  TO  180 

TRA  1790 

IF  (WS3.GT.1.5)  Kl-36 

TRA  1800 

DO  170  K-K1.67 

TRA  1W0 

IF  (WS3.LE.F0(K))  GO  TO  175 

TRA  1820 

170 

CONTINUE 

TRA  1830 

175 

TX(3 )-TR(X)-(TR(K)-TR(K-l ) )*(F0(K)-WS3)/(F0(K)-F0(K-1 )) 

TRA  1840 

GO  TO  185 

TRA  1850 

180 

TX(3)-0.0 

TRA  1860 

185 

CONTINUE 

TRA  1870 

n  n 


TX(  1 0  )-YYl  *W(  7  )+YY2*W(  1 2  >+YY3*W(  1 3  )+YY4*W(  1 4  ) 

TX( 7 )-XXl *W(  7  HXX2*W(  1 2  HXX3*V(  1 3  )+XX4*W(  1 4  ) 

SUM-SUM+TX(7) 

TX(9)-SUM 
DO  205  K-4.KMAX 
IP  (TX(K).EQ.O.O)  GO  TO  195 
IF  (TX(K).LE.O.:)  GO  TO  190 
IF  (TX(K) .GT.20.)  GO  TO  200 
TX(K)-EXP(-TX(K)) 

GO  TO  205 

190  TX(K)-1.0-TX(K)+0.5*TX(K)*TX(K) 

GO  TO  205 
195  TX(K)«1.0 
GO  TO  205 
200  TX(K)-0. 

205  CONTINUE 

TX(9)-TX(1)*TX(2)*TX(3)*TX(9) 

IF  (IV. GE. 13000)  TX(3)-TX(8) 

ALAM-1 .OE+04/V 
IF  (IEMISS.EQ.O)  GO  TO  220 
BBIK-FF(TBBY(IK),V) 

TLNEW- (TX( 9 ) *TX( 1 0 ) ) / (TX( 7 ) *TX( 6 ) ) 

TSNEW-(TX(7 )*TX(6 ) ) /TX( 1 0 ) 

DTAU-TLOLD-TLNEW 

IF  (DTAU.LT.1.0E-5.AND. TLNEW.LT. 1.0E-5)  GO  TO  215 
SUMV-SUMV+O . 5*BBIK*DTAU* (TSOLD+TSNEW) 

TLOLD-TLNEW 
TSOLD-TSNEW 
210  CONTINUE 
215  CONTINUE 
TAUG-0 

**********  BLACKBODY  LOCATED  AT  ANY  H2  ************ 

IF  (HMIN.LE.O.O.AND.IL.EQ.l)  TAUG-TX(9) 

IF  (TBOUND.LE.O.O)  GO  TO  218 
TAUG  -  TX(9) 

Tl-TBOUND 
BBG  -  0.0 
ARG  -  1.43879*V/T1 
IF  (ARG.LT.50.)  BBG-FF(T1 ,V)*TAUG 
C  IF  (HMIN.LE.O.O)  SUMV-SUMV+BBG 

SUMV  «  SUMV  +  BBG 
218  SUMW-SUMV 

IF  (IV.GT.IV1)  FACTOR-1.0 
IF  (IV.GE.IV2)  FACTOR-0.5 
SUMV- ( 1 . OE+04 /V**2 ) *SUMV 
RADSUM-RADSUM+DV* FACTOR* SUMV 

IF  (JP.EQ.O)  WRITE  (NOUT.265)  V.ALAM, SUMV,SUMW,RADSUM,TX(9) 
IF  (SUMV.GE.RADMAX)  VRMAX-V 
IF  (SUMV.GE.RADMAX)  RADMAX-SUMV 
IF  (SUMV.LE .RADMIN)  VRMIN-V 
IF  (SUMV.LE. RADMIN)  RADMIN-SUMV 
C  WRITE  (NST0R.235)  V.ALAM, SUMV, SUMW,RADSUM,TX( 9) 

WRITE  (NPLT)  SUMV,TX(9 ) 


TRA  1880 
TRA  1890 
TRA  1900 
TRA  1910 
TRA  1920 
TRA  1930 
TRA  1940 
TRA  1950 
TRA  1960 
TRA  1970 
TRA  1980 
TRA  1990 
TRA  2000 
TRA  2010 
TRA  2020 
TRA  2030 
TRA  2040 
TRA  2050 
TRA  2060 
TRA  2070 
TRA  2080 
TRA  2090 
TRA  2100 
TRA  2110 
TRA  2120 
TRA  2130 
TRA  2140 
TRA  2150 
TRA  2160 
TRA  2170 
TRA  2180 
TRA:2181 
TRA:2190 
TRA:2191 
TRA:2192 
TRA  2200 
TRA:2201 
TRA: 2202 
TRA:2210 
TRA: 2220 
TRA: 2221 
TRA: 2230 
TRA  2240 
TRA  2250 
TRA  2260 
TRA  2270 
TRA:2280 
TRA  2290 
TRA  2300 
TRA  2310 
TRA  2320 
TRA: 2330 
TRA: 2331 
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220  TX(10)-1.-TX(10) 

AB-1.-TX(9) 

IP  (IV.EQ.IV1 .0R.IV.EQ.IV2)  AB-0.5*AB 

SUMA-SUMA+AB*DV 

IF  (IEMISS.EQ.l)  GO  TO  225 


TEA  2340 
TEA  2350 
TEA  2360 
TEA  2370 
TEA  2380 


IF  (JP.EQ.O)  WRITE  (N0UT.260)  IV,ALAM,TX(9) ,(TX(K) ,K-1 ,7) ,TX(10) ,  TEA:2390 
1  SUMA,TX(11)  TEA: 2400 

IF(JF.EQ.O)  WEITE  (N0UT.483)  IV, ALAM,EXTINC .ABSORB  TRA:2410 

WRITE  (NSTOR.240)  IV,ALAM,TX(9),(TX(K),K«1 ,7),TX(10),TX(11)  TRA.-2420 

WRITE  (NFLT)  SUMV,TX(9)  TRA:2421 

225  CONTINUE  TRA  2430 

IF  (IV.GE.IV2)  GO  TO  230  TRA  2440 

GO  TO  5  TRA  2450 

230  AB-1.0-SUMA/FL0AT(IV-IV1)  TRA  2460 

WRITE  (NOUT.245)  IV1 ,IV,SUMA,AB  TRA:2470 

IF  (IEMISS.EQ.l)  WRITE  (ROUT, 250)  RADS UM,VRMIN,RADKIN,VRMAX,RADMAXTRA: 2480 
WRITE  (NPLT)  ENDF.ENDF  TRA: 2481 

RETURN  TEA  2490 

TRA  2500 

235  FORMAT  (F8.1,F13.6,3E13.5,F13.6)  TRA  2510 

240  F0RMAT(I6,11F9.4,5X,F9.4)  TRA  2520 

245  FORMAT  (27H  INTEGRATED  ABSORPTION  FROM, 15, 3H  T0,I5,7H  CM-1  -.F10.2TRA  2530 

1 , 23HAVERAGE  TRANSMITTANCE  -,F6.4)  TRA  2540 

250  FORMAT  (22H  INTEGRATED  RADIANCE  -,E12.5,13HWATT  CM  -2  SR./7H  RADMITRA  2550 
1N,F12.3,E12.5,/,8H  RADMAX  .F12.3.E12.5)  TRA  2560 

255  FORMAT  (1H1,/10X,32H  FREQ  WAVELENGTH  TOTAL  H20,5X,4HC02+,5X,TRA  2570 
164H0Z0NE  N2  CONT  H20  CONT  MOL  SCAT  AEROSOL  AEROSOL  INTEGRATETRA  2580 
2D, 12H  NITRIC  ACID/11X.14H  CM-1  MICRONS, 8(4X,5HTRANS) ,4X,20H  ABS  TRA  2590 
3  ABSORPTION  .4X.5HTRANS)  TRA  2600 

260  FORMAT  (10X,I6,10F9.4,F14.4,F9.4)  TRA  2610 

265  FORMAT  (30X,F8.1,F13.6,3E13.5,F13.6)  TRA  2620 

END  TRA  2630 
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SUBROUTINE  AEREXT  (V) 

INTERPOLATES  AEROSOL  EXTINCTION  AND  ABSORPTION  COEFFICIENT 
FOR  THE  WAVENUMBER,  V. 

DOUBLE  PRECISION  HZ,SEASN,VULCN 

COMMON  /CARD1/  MODEL, IHA2E,ITYPE,LEN, JP,IM,M1 ,M2,M3,ML,IEMISS,RO 
1  , TBOUND , ISEASN , I VULCN , VI S , JBMOD 
COMMON  /CARD2/  HI, H2, ANGLE .RANGE, BETA, HMIN, RE 
COMMON  /CARD3/  VI ,V2,DV,AVW,CO,CW,W(15),E(15),CA,PI 
COMMON  /CNTRL/  LENST,EMAX,M,IJ,J1 , J2,JMIN,JEXTRA,IL,IKMAX,NLL,NP1 
1 ,1FIND,NL,IKL0 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),VH(7,34),WO(7,34) 

1  ,SEASN(2) ,VULCN(5) ,VSB(9),HZ(15) ,HMIX(34) 

COMMON  RELHUMC 34 ) ,HSTOR(34) ,EH( 15,34 ),ICH(4) ,VH(15) ,TX(15) 

COMMON  WLAY(34,15),WPATH(68,15),TBBY(68),PRES(68) 

COMMON  ABSC(4,40) ,EXTC(4 ,40) ,VX2(40) 

COMMON  /AER/  EXTV(4),ABSV(4) 

DO  5  1-1,4 
EXTV(I)-0. 

ABSV(I)-0. 

5  CONTINUE 

IF  (IHAZE.EQ.O)  RETURN 
ALAM-1.0E+4/V 
DO  10  N-1,40 
XD-ALAM-VX2 (N ) 

IF  (XD)  15,10,10 
10  CONTINUE 
N-40 

15  VXD-VX2(N)-VX2(N-1) 

DO  20  1-1,4 

EXTV(I )-(EXTC(I ,N)-EXTC(I ,N-1 > )*XD/VXD+EXTC(I ,N) 

ABSV(I )-(ABSC(I ,N)-ABSC(I ,N-1 ) )*XD/VXD+ABSC(I ,N) 

20  CONTINUE 
RETURN 
END 


ATR 

10 

ATR 

20 

ATR 

30 

ATR 

40 

ATR 

50 

ATR 

:51 
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60 

ATR 

*70 

ATR 

80 

ATR 

90 

ATR 
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ATR 
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ATR 
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ATR 

130 

ATR 

140 

ATR 
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ATR 

160 

ATR 

170 

ATR 

180 

ATR 
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ATR 

200 

ATR 

210 

ATR 

220 

ATR 

230 

ATR 
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ATR 

250 

ATR 

260 

ATR 
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ATR 

280 

ATR 

290 

ATR 

300 

ATR 

310 

ATR 

320 

ATR 

330 

ATR 

340 
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SUBROUTINE  HN03  (V.HABS) 

HNO 

10 

c 

HNO 

20 

c 

HN03  STATISTICAL  BAND  PARAMETERS 

HNO 

30 

c 

HNO 

40 

DIMENSION  H1(1S) ,  H2(16),  H3(13) 

HNO 

50 

c 

ARRAY  HI  CONTAINS  HN03  ABS,  COET(CM-l ATM-1)  FROM  850  TO  920  CM-1 

HNO 

60 

DATA  Hl/2. 197, 3.911, 6. 154,8. 150,9. 217, 9.461, 11. 56,11. 10, 11. 17,12. 

4HN0 

70 

10,10.49,7.509,6.136,4.899,2.866/ 

HNO 

80 

c 

ARRAY  H2  CONTAINS  HN03  ABS,  COEF( CM-1 ATM-1 )  FROM  1275  T01350  CM-1 

HNO 

90 

DATA  B2/2. 828,4.6 11, 6. 755, 8.759, 10.51, 13.74, 18.00,21. 51, 23.09, 21. 

6HN0 

100 

18,21.32,16.82,16.42,17.87,14.66,8.716/ 

HNO 

110 

c 

ARRAY  H3  CONTAINS  HN03  ABS,  COEF( CM-1 ATM-1)  FROM  1675  T01735  CM-1  HNO 

120 

DATA  B3/5. 003, 8.803, 14. 12, 19. 83 ,23. 31 ,23. 58, 23. 22, 21. 09, 26. 99, 25. 

8HN0 

130 

14,24.79,17.68,9.420/ 

HNO 

140 

HABS-O. 

HNO 

150 

IF  (V.GE. 850.0. AND. V.LE. 920.0)  GO  TO  5 

HNO 

160 

IF  (V.GE* 1275.0. AND. V.LE. 1350.0)  GO  TO  10 

HNO 

170 

IF  (V.GE. 1675. O.AND.V.LE. 1735.0)  GO  TO  15 

HNO 

180 

RETURN 

HNO 

190 

5  I«(V-845.)/5. 

HNO 

200 

HABS-H1CI) 

HNO 

210 

RETURN 

HNO 

220 

10  I«(V-1270.)/5. 

HNO 

230 

HABS-H2U) 

HNO 

240 

RETURN 

HNO 

250 

15  I«(V-1670.)/5. 

HNO 

260 

HABS-H3(I) 

HNO 

270 

RETURN 

HNO 

280 

END 

HNO 

290 
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SUBROUTINE  BMDATA 

BMD 

10 

c 

BMD 

20 

c 

DEVELOPED  OCTOBER  1980 

BMD 

30 

c 

BMDATA  MARES  THE  INITIAL  TAPE  READ  AND  CALULATES 

BMD 

40 

c 

WAVENUMBER-INDEPENDENT  PARAMETERS  FOR  USE  BY  BMOD 

BMD 

50 

c 

BMDATA  IS  CALLED  BY  TRANS 

BMD 

60 

DOUBLE  PRECISION  HZ .SEASN, VULCN 

BMD 

70 

COMMON  /CARD1/  MODEL, IHAZE.ITYPE, LEN, JP, IM,Ml ,M2,M3,ML,IZMISS,RO 

BMD 

80 

1  ,TBOUND,ISEASN,IVULCN,VIS, JBMOD 

BMD 

90 

COMMON  /CARD2/  HI ,B2, ANGLE, RANGE, BETA, HMIN, RE 

BMD 

100 

COMMON  /CARD3/  VI ,V2 ,DV,AVW,C0,CW,W(15) ,E(15) ,CA,PI 

BMD 

110 

COMMON  /CARD4/  IXY 

BMD 

120 

COMMON  /CNTRL/  LENST,KMAX,M,IJ,J1 , J2, JMIN,JEXTRA,IL,IKMAX,NLL,NP1 

BMD 

130 

1 , IFIND.NL, IKLO 

BMD 

140 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),WH(7,34),WO(7,34) 

BMD 

150 

1  , SEASN(2) ,VULCN(5) ,VSB(9) ,HZ(15) ,HMIX(34) 

BMD 

160 

COMMON  RELHUM(34) ,HST0R(34) ,EH( 15,34 ) ,ICH(4) ,VH( 15) ,TX(15) 

BMD 

170 

COMMON  WLAY(34 ,15) ,WPATH(68 , 15) ,TBBY(68) ,PRES(68) 

BMD 

180 

COMMON  ABSC(4 ,40) ,EXTC(4 ,40) ,VX2(40) 

BMD 

190 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL 

BMD 

200 

COMMON  /BMDCOM/  SD(5,4,20),0D(5,4,20),ZMWT(4,20),ALF0(4,20), 

BMD 

210 

1  WT(68),JJ(68),rW,NTEMP,TBAND(5) 

BMD 

220 

DIMENSION  UNITS(3) 

BMD 

230 

DATA  KS PEC/4/ 

BMD 

240 

DATA  UNITS/. 0125E5, 1 .0E5, 1.0/ 

BMD 

250 

c 

BMD 

260 

c 

BAND  MODEL  PARAMETERS  ARE  STORED  ON  A  BINARY  TAPE  (FILE  NTBL) 

BMD 

270 

c 

IN  BLOCKS  OF  100CM-1 . 

BMD 

280 

c 

KSPEC  -  1  H20 

BMD 

290 

c 

»  2  UNIFORMLY  MIXED  GASES 

BMD 

300 

c 

-  3  03 

BMD 

310 

c 

-  4  TAIL  CONTRIBUTIONS  FROM  H20  AND  C02  BANDS 

BMD 

320 

c 

BMD 

330 

IKLO  -  1 

BMD 

340 

NTBL  -  12 

BMD 

350 

c 

BMD 

360 

c 

READ  THE  FIRST  BLOCK  OF  BAND  MODEL  PARAMETERS  FROM  THE  TAPE 

BMD 

370 

c 

REWIND  TAPE  FILE  AND  READ  THE  TAPE  HEADER 

BMD 

380 

REWIND  NTBL 

BMD 

390 

READ  (NTBL)  VA,VB,NV,NTEMP,(TBAND(N> ,N-1 ,NTEMP) 

BMD 

400 

c 

BMD 

410 

c 

CHECK  WAVENUMBER  RANGE  ON  THE  TAPE 

BMD 

420 

c 

BMD 

430 

IF  (Vl.LE.VB  .AND.  V2.GE.VA)  GO  TO  10 

BMD 

440 

WRITE  (NOUT, 902)  V1,V2,VA,VB 

BMD 

450 

STOP 

BMD 

460 

10  IF  (Vl.GE.VA)  GO  TO  15 

BMD 

470 

WRITE  (NOUT, 904)  V1,VA 

BMD 

480 

VI  -  VA 

BMD 

490 

15  IF  (V2.LE.VB)  GO  TO  20 

BMD 

500 

WRITE  (NOUT, 906)  V2,VB 

BMD 

510 

V2  -  VB 

BMD 

520 

c 

BMD 

530 
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C  ADVANCE  THE  TAPE  TO  BEAD  THE  FIRST  REQUIRED  DATA  BLOCK 
20  IDV  -  INT(V1-VA+. 00001) 

JBL0CX  -  IDV/100  +  1 
DO  30  J  -  l.JBLOCK 

READ  (NTBL)  <<<SD(IT,K, JV) ,0D(IT,K,JV) , IT-1 .NTEMP) ,ALF0(K,JV) , 

1  ZMVT(K,JV),K-1,KSPEC),JV-1,20) 

30  CONTINUE 

C  SET  WAVENUMBER  COUNTER  TO  ONE  LESS  THAN  ITS  PROPER  VALUE  FOR  VI 
IW  -  (IDV-100*(JBL0CK-l))/5 

RETURN  WHEN  ONLY  THE  SPECTRAL  INTERVAL  HAS  BEEN  CHANGED. 

IF  (IXY.EQ.l)  RETURN 

WPATH  MUST  BE  SPECIFIED  WHEN  THE  ENTIRE  PATH  IS  WITHIN  ONE  LATER 
IF  (ITTPE.EQ.l)  GO  TO  40 
IF  (J1.EQ.J2  .AND.  H1.EQ.H2)  GO  TO  40 
GO  TO  50 
40  DO  45  K-1,3 
45  WPATH(l.K)  -  W(K) 

CONVERT  TO  CONSISTENT  UNITS  FOR  OPTICAL  PATH— WPATH  (CM  AMAGATS) 

50  DO  60  K  -  1,3 

DO  60  IK  -  IKLO.IKMAX 
60  WPATH(IK.K)  -  WPATH(IK,K)*UNITS(K) 

C  CALCULATE  WAVENUMBZR-INDEPENDENT  QUANTITIES 
DO  90  IK  -  IKLO.IKMAX 
TT  -  TBBY(IK) 

WT(IK)  -  SQRT(TT/273.15) 

PRES(IK)  -  PRES(IK)/1013. 

C  SET  TEMPERATURE  INTERPOLATION  INDICES  FOR  EACH  LAYER 
DO  80  J  -  1, NTEMP 
IF  (TT.GT.TBAND(J))  GO  TO  80 
JJ(IK)  -  J 
GO  TO  90 
80  CONTINUE 

JJ(IK)  -  NTEMP  +  1 
90  CONTINUE 
RETURN 

902  FORMAT  (40H  TAPE  OUT  OF  RANGE - REQUESTED  (V1.V2) 

1  2F8 . 0 , 5X , 14HTAPE  (VA.VB)  -,2F8.0,5X, 

2  25HPROGRAM  STOPPED  IN  BMDATA) 

904  FORMAT  (15H  LOWER  LIMIT  0F.F8.0, 

1  29H  CM-1  IS  TOO  SMALL - RESET  TO.F8.0.5H  C1M  ) 

906  FORMAT  (15H  UPPER  LIMIT  0F.F8.0, 

1  29H  CM-1  IS  TOO  LARGE - RESET  T0,F8.0,5H  CM-1) 

END 
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BMD 
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BMD 

630 

BMD 
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BMD 
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BMD 

670 

BMD 
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BMD 

750 

BMD 
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BMD 
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BMD 
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BMD 

840 

BMD 
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BMD 

660 

BMD 

870 

BMD 
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BMD 
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BMD 

900 

BMD 
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BMD 
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BMD 
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950 

BMD 

960 

BMD 

970 

BMD 
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SUBROUTINE  BMOD(IK.V) 

BMO 

10 

c 

WRITTEN  SEPT  1980 

BMO 

20 

c 

THIS  SUBROUTINE  CALCULATES  THE  TRANSMITTANCE  AT  A  SPECTRAL 

BMO 

30 

c 

RESOLUTION  OF  5  CM-1  FOR  THE  FOUR  "SPECIES" 

BMO 

40 

c 

K  -  1  H20 

BMO 

50 

c 

2  WELL  MIXED  GASES - C02,N20,CH4,C0,02 

BMO 

60 

c 

3  03 

BMO 

70 

c 

4  H20  AND  C02  TAILS 

BMO 

80 

c 

BMO 

90 

DOUBLE  PRECISION  HZ.SEASN.VtJLCN 

BMO 

100 

COMMON  /CARD1/  MODEL, IHA2E,ITYPE,LEN,JP,IM, Ml ,M2,M3,ML,IEMISS,RO 

BMO 

no 

1  ,TBOUND,ISEASN,IVULCN,VIS, JBMOD 

BMO 

120 

COMMON  /CARD2/  HI ,H2, ANGLE, RANGE, BETA, HMIN, RE 

BMO 

130 

COMMON  /CARD3/  VI ,V2 ,DV,AVW,C0,CW,W(15) ,E(15) ,CA,PI 

BMO 

140 

COMMON  /CNTRL/  LENST,KMAX,M,IJ, J1 ,J2,JMIN, JEXTRA,IL,IKMAX,NLL,NP1 

BMO 

150 

1 ,IFIND,NL,IXLO 

BMO 

160 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),WH(7,34),WO(7,34) 

BMO 

170 

1  ,SEASN(2) ,VULCN(5) ,VSB(9) ,HZ(15) ,HMIX(34) 

BMO 

180 

COMMON  RELHUM(34),HST0R(34),EH(15,34),ICH(4),VH(15),TX(15) 

BMO 

190 

COMMON  WLAY(34 , 15 ) ,WPATH(68 , 15 ) ,TBBY(68) ,PRES(68) 

BMO 

200 

COMMON  ABSC(4,40) ,EXTC(4 ,40) ,VX2(40) 

BMO 

210 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL 

BMO 

220 

COMMON  /BMDCOM/  SD(5,4,20),OD(5,4,20),ZMWT(4,20),ALF0(4,20), 

BMO 

230 

1  WT(68) ,JJ(68) ,IW,NTEMP,TBAND(5) 

BMO 

240 

DIMENSION  S1(4),S2(4),S3(4),XS(4),FAC2(4),TRANS(5) 

BMO 

250 

DATA  KS PEC/4/ 

BMO 

260 

c 

BMO 

270 

c 

BMO 

280 

c 

IK-0  IS  THE  INITIAL  CALL  FOR  EACH  WAVENUMBER  AND  IS  MADE  PRIOR 

BMO 

290 

c 

TO  THE  LOOP  OVER  LAYERS 

BMO 

300 

IF  (IK.GT.O)  GO  TO  40 

BMO 

310 

c 

IW  IS  THE  COUNTER  FOR  READING  THE  DATA  TAPES  IN  BLOCKS  OF  20 

BMO 

320 

IW  -  IW  +  1 

BMO 

330 

IF  (IW.LE.20)  GO  TO  10 

BMO 

340 

c 

IF  NECESSARY,  READ  THE  NEXT  100  CM-1  BLOCK  FROM  THE  TAPE 

BMO 

350 

READ  (NTBL)  (((SD(N,K,JV),0D(N,K,JV),N-1 .NTEMP) ,ALFO(K, JV) , 

BMO 

360 

1  ZMWT(K,JV),K-1,KSPEC),JV-1,20) 

BMO 

370 

IW  -  1 

BMO 

380 

c 

ZERO  QUANTITIES  FOR  THE  LAYER  LOOP 

BMO 

390 

10  DO  20  K  -  l.KSPEC 

BMO 

400 

S1(K)  -  0.0 

BMO 

410 

S2(K)  -  0.0 

BMO 

420 

S3(K)  -  0.0 

BMO 

430 

XS(K)  -  0.0 

BMO 

440 

FAC2(K)  -  0.0 

BMO 

450 

20  IF  (ZMWT(K,IW) .GT.0.0)  FAC2(K)  -  V*5.94E-6/SQRT(ZMWT(K,IW)) 

BMO 

460 

RETURN 

BMO 

470 

c 

BMO 

480 

c 

BMO 

490 

c 

BMO 

500 

c 

***  START  CALCULATION  OF  MOLECULAR  TRANSMITTANCE  *** 

BMO 

510 

c 

BMO 

520 

40  LMIN  -  IK 

BMO 

530 

LMAX  -  IK 

BMO 

540 

c 

FOR  CALCULATING  TAU  ONLY,  LOOP  OVER  ALL  LAYERS - LMAX  -  IXMAX 

BMO 

550 

c 

FOR  RADIATION  CALC'S,  LAYER  LOOP  IS  ALREADY  IN  TRANS  -  LMAX  -  IK 

BMO 

560 

IF  (IEMISS.EQ.O)  LMAX  -  IKMAX 

BMO 

570 

TRANS(S)  -  1.0 

BMO 

580 

c 

BMO 

590 

c 

BMO 

600 

c 

START  SPECIES  LOOP 

BMO 

610 

c 

THE  4'TH  SPECIES  ARE  H20  AND  C02  TAIL  CONTRIBUTIONS 

BMO 

620 

DO  90  K  -  l.KSPEC 

BMO 

630 

TRANS(K)  -  1.0 

BMO 

640 

c 

CHECK  FOR  MINIMUM  ABSORPTION  FOR  EACH  SPECIES  AT  THIS  WAVENUMBER 

BMO 

650 

IF  <(SD(1,K,IW).LT.1.0E-14).AND.(K.NE.4))G0  TO  90 

BMO 

660 

c 

BMO 

670 

c 

START  LAYER  LOOP 

BMO 

680 

DO  60  L  -  LMIN.LMAX 

BMO 

690 

JT  -  JJ(L) 

BMO 

700 

TT  -  TBBY(L) 

BMO 

710 

CALL  CALC(JT,NTEMP,TT,TBAND,SDU,K,IW),0D<1,K,IW),ABSM,DINV) 

BMO 

720 

IF  (K.NE.4)  GO  TO  50 

BMO 

730 

c 

LINE  WING  CONTINUUM  COMPONENTS  (K-4)  ARE  CALCULATED  SEPARATELY 

BMO 

740 

c 

ABSM  IS  FOR  THE  C02  TAIL - DINV  IS  FOR  THE  H20  TAIL 

BMO 

750 

S1(K)  -  S 1 (K )  +  DINV*WPATH(L,1)*PRES(L> 

BMO 

760 

S2(K)  -  S2(K)  +  ABSM* WPATH (L , 2 )*PRES (L ) 

BMO 

770 

GO  TO  60 

BMO 

780 

c 

REGULAR  MOLECULAR  CALCULATION  (K-1,2,3) 

BMO 

790 

50  CONTINUE 

BMO 

800 

c 

(FACl.XS(K))  -  (INCREMENTAL, TOTAL)  OPTICAL  DEPTH 

BMO 

810 

FAC1  -  WPATH(L ,K)*ABSM 

BMO 

820 

IFCFAC1.LT.1.0E-4)  GO  TO  60 

BMO 

830 

XS(K)  -  XS(K)  +  FAC1 

BMO 

840 

FAC3  -  FAC1*DINV 

BMO 

850 

c 

MEAN  LORENTZ  HALF  WIDTH 

BMO 

860 

S1(K)  -  S1(K)  +  FAC3*PRES(L)/WT(L) 

BMO 

870 

c 

MEAN  DOPLER  HALF  WIDTH 

BMO 

880 

S2(K)  -  S2(K)  +  FAC3*WT(L) 

BMO 

890 

c 

MEAN  LINE  DENSITY 

BMO 

900 

S3(K)  -  S3(KHFAC3 

BMO 

910 

60  CONTINUE 

BMO 

920 

c 

CALCULATE  EQUIVALENT  WIDTH  AND  TRANSMITTANCE 

BMO 

930 

IF((K.EQ.KSPEC).OR.(XS(K).LT.1.0E-3))  GO  TO  90 

BMO 

940 

ACBAR  -  ALF0(K,IW)*S1(K)/XS(K) 

BMO 

950 

ADBAR  -  FAC2(K)*S2(K)/XS(K) 

BMO 

960 

ODBAR  -  S3(K)/XS(K) 

BMO 

970 

CALL  EWIDTH(XS(K),ACBAR,ADBAR, ODBAR, DV,WSL,TRANS(K)) 

BMO 

980 

IF ( TRANS (K) .LT.l .0)  GO  TO  90 

BMO 

990 

WSL  -  WSL/DV 

BMO 

1000 

ANL1NE  -  ODBAR* DV 

BMO 

1010 

TRANS(K)  -  (1.0-WSL)**ANLINE 

BMO 

1020 

c 

END  OF  SPECIES  LOOP 

BMO 

1030 

90  CONTINUE 

BMO 

1040 

c 

BMO 

1050 

c 

CONTRIBUTION  OF  H20  AND  C02  TAILS 

BMO 

1060 
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IF  (S1(4).GT.30.)  Sl(4)  -  50.  BMO  1070 

TRANS(4)  -  EXP(-S1(4))  BMO  1080 

IF  <S2(4).GE.50.)  S2(4)  -  50.  BMO  1090 

TRANS(5)  -  EXP(-S2(4))  BMO  1100 

C  MULTIPLY  IN  TAIL  CONTRIBUTIONS  AND  LOAD  RESULTANT  TRANSMITTANCES  BMO  1110 

C  INTO  THE  PROPER  LOWTRAN5  ARRAYS  BMO  1120 

TX(1 )  -  TRANS(1 )*TRANS(4)  BMO  1130 

TX(2)  -  TRANS(2)*TRANS(5)  BMO  1140 

TX(3)  ■  TRANS (3)  BMO  1150 

RETURN  BMO  1160 

BMO  1170 


o  o  n  o  nnnnnooooooooon 


SUBROUTINE  CALC(JT, NTEMP, TEMP, TBAND, XI ,X2, ABSM, DINV) 


CALC  INTERPOLATES  THE  BAND  MOSEL  PARAMETERS  OVER  TEMPERATURE  TO 
OBTAIN  S/D  AND  1/D  FOR  A  GIVEN  TEMPERATURE. 

IT  IS  ASSUMED  THAT  THE  BAND  MODEL  PARAMETERS  ARE  TABULATED  FOR 
THE  WAVENUMBERS  OF  THE  CALCULATION. 


JT 

NTEMP 

TBAND 

TEMP 

XI 

22 

ABSM 

DINV 


INDEX  FOR  THE  FIRST  TBAND  LARGER  THAN  TEMP 
NUMBER  OF  TEMPERATURE  POINTS  FOR  XI  AND  X2 
TEMPERATURES  FOR  TABULATED  BAND  MODEL  PARAMETERS 
TEMPERATURE  FOR  WHICH  ABSM  &  DINV  ARE  NEEDED 
S/D  (ABSORPTION  COEFFICIENT)  FROM  BMOD 
1/D  (LINE  SPACING)  OR  S/D  FOR  MIXED  GASES'  TAILS 
RETURNED  VALUE  OF  S/D  FOR  INPUT  TEMP 
RETURNED  VALUE  OF  1/D  FOR  INPUT  TEMP 


DIMENSION  X1(1),X2(1),TBAND(1) 


***  LINEAR  INTERPOLATING  FUNCTION 

F1(Y1 ,Y2,T1 ,T2,T3)  -  Y1  +  (Y2-Y1 )*(T3-T1 )/(T2-Tl ) 


IF  (JT.GT.NTEMP)  GO  TO  30 
IF  (JT.GT.l)  GO  TO  20 
ABSM  -  XI <1 ) 

DINV  -  X2(l ) 

RETURN 
20  JT1  -  JT  -  1 

ABSM  -  FI (XI (JT1 ) ,X1 (JT) ,TBAND(JT1 ) , TBAND (JT) ,TEMP) 
DINV  -  F1(X2(JT1),X2(JT),TBAND(JT1),TBAND(JT),TEMP) 
RETURN 

30  ABSM  -  XI (NTEMP) 

DINV  -  X2( NTEMP) 

RETURN 

END 


CAL 

10 

CAL 

20 

CAL 

30 

CAL 

40 

CAL 

50 

CAL 

60 

CAL 

70 

CAL 

80 

CAL 

90 

CAL 

100 

CAL 

110 

CAL 

120 

CAL 

130 

CAL 

140 

CAL 

150 

CAL 

160 

CAL 

170 

CAL 

180 

CAL 

190 

CAL 

200 

CAL 

210 

CAL 

220 

CAL 

230 

CAL 

240 

CAL 

250 

CAL 

260 

CAL 

270 

CAL 

280 

CAL 

290 

CAL 

300 

CAL 

310 

CAL 

320 

CAL 

330 

CAL 

340 

CAL 

350 
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BLOCK  DATA 

DOUBLE  PRECISION  HZ , SEASN, VULCN 

COMMON  /CARDI/  MODEL, IHAZE, ITYPE,LEN,JP, IM,M1 ,M2,M3 , ML, IEMISS.RO 
1  , TBOUND , ISEASN , I VULCN , VI S , JBMOD 
COMMON  /CARD2/  HI ,H2, ANGLE, RANGE, BETA, HMIN, RE 
COMMON  /CARD3/  VI ,V2,DV,AVW,CO,CV,W(15) ,E(15) ,CA,PI 
COMMON  /CNTRL/  LENST,KMAX,M,IJ,J1,J2,JMIN,JEXTRA,IL,IKMAX,NLL,NP1 
I ,IFIND,NL,IKLO 

COMMON  /MDATA/  Z(34),P(7,34),T(7,34),WH(7,34),WO(7,34) 

1  ,SEASN(2) ,VDLCN(5) ,VSB(9) ,HZ(15) ,HMIX(34) 

COMMON  RELHUM(34),HST0R(34),EH(15,34),ICH(4),VH(15),TX(15) 

COMMON  VLAY(34 , 15) ,WPATH(68, 15) ,TBBY(68) .PRES (68) 

COMMON  ABSC(4,40),EXTC(4,40),VX22(40) 

C0MM0N/FRFDTA/ZHT(34) ,HZ2K(34,5) ,FAWI50(34) ,FAWI23(34) ,SPSU50(34) 
1SPSU23(34) ,BASTFW(34) ,VUMOFW(34) ,HIVUFW(34) ,EXVUFW(34) ,BASTSS(34) 
2VUMOSS(34) ,HIVUSS(34) ,EXVUSS(34 ) ,UPNATM(34) ,VUTONO(34) , 
3VUTOEX(34) ,EXUPAT(34) 

COMMON  /EXTDTA/VX2 (40 ) ,RUR£XT(40 ,4 ) , RURABS (40,4) .URBEXT (40 , 4 ) , 

1URBABS (40 , 4 ) , OCNEXT (40 , 4 ) , OCNABS (40 , 4 ) , TROEXT (40 , 4 ) , TROABS ( 4 0 , 4 ) , 
2FG1EXT(40) ,FG1ABS(40) ,FG2EKT(40) ,FG2ABS(40) , 

3  BSTEXT(40) ,BSTABS(40) ,AV0EXT(40) ,AV0ABS(40) ,FVOEXT(40) , 

4  FVOABS(40),DMEEXI(40),DMEABS(40) 

COMMON  /TRFWFO/  TR(67),FW(67),FO(67) 

COMMON  /C4C5C8/  C4(133) ,C5(15) ,C8(102) 

DIMENSION  PO(238) ,P1(114),P2(114) ,P3(10) 

EQUIVALENCE  (P,P0,P1),(P2,P0(115)),(P3,P0(229)) 

DIMENSION  TO(238) ,T1(114),T2(114),T3(10) 

EQUIVALENCE  (T.T0.T1) ,(T2,T0(115)) ,(T3,T0(229)) 

DIMENSION  WH0(238),WH1(114),WH2(114),WH3(10) 

EQUIVALENCE  (WH,WH0,WH1),(WH2,WH0(115)),(WH3,WH0(229)) 

DIMENSION  WOO (238), WO 1(114) , W02 (114),W03(10) 

EQUIVALENCE  (WO.WO0 , WOl ) , (W02 , W00( 1 15) ) , ( W03 ,WO0(229 ) ) 

DIMENSION  RURXT1(80),RURXT2(80) 

EQUIVALENCE  (RUREXT .RURXTl ) , (RUREXT(1 , 3 ) .RURXT2 ) 

DIMENSION  RURBS1 (80) ,RURBS2(80) 

EQUIVALENCE  (RURABS , RURBS 1 ) , (RURABS (1,3) .RURBS2 ) 

DIMENSION  URBXT1(80),URBXT2(80) 

EQUIVALENCE  (URBEXT ,URBXT  1 ) , (URBEXT (1,3) ,URBXT2 ) 

DIMENSION  URBBS1(80) ,URBBS2(80) 

EQUIVALENCE  (URBABS .URBBSl ) , (UR BAB S (1,3) ,URBBS2 ) 

DIMENSION  OCNXT1(80) ,OCNXT2(80) 

EQUIVALENCE  ( OCNEXT , OCNXT l ) , ( OCNEXT  ( 1 , 3 ) , OCNXT 2 ) 

DIMENSION  OCNBS1(80) ,OCNBS2(80) 

EQUIVALENCE  (OCNABS , OCNBS1 ) , ( OCNABS (1,3), OCNBS2 ) 

DIMENSION  TR0XT1(80),TR0XT2(80) 

EQUIVALENCE  (TROEXT , TROXT 1 ) , ( TROEXT (1,3), TROXT2 ) 

DIMENSION  TR0BS1(80) ,TR0BS2(80) 

EQUIVALENCE  (TROABS, TROBSl) ,(TR0ABS(1 ,3) .TROBS2) 

DIMENSION  C4A( 114) ,C4B( 19) 

EQUIVALENCE  (C4,C4A),(C4(115),C4B) 

SUBROUTINE  MDTA 


BLK 

10 

BLK 

20 

BLK 

30 

BLK 

40 

BLK 

50 

BLK 

60 

BLK 

70 

BLK 

80 

BLK 

90 

BLK 

100 

BLK 

110 

BLK 

120 

BLK 

130 

,BLK 

140 

,BLK 

150 

BLK 

160 

BLK 

170 

BLK 

180 

BLK 

190 

BLK 

200 

BLK 

210 

BLK 

220 

BLK 

230 

BLK 

240 

BLK 

250 

BLK 

260 

BLK 

270 

BLK 

280 

BLK 

290 

BLK 

300 

BLK 

310 

BLK 

320 

BLK 

330 

BLK 

340 

BLK 

350 

BLK 

360 

BLK 

370 

BLK 

380 

BLK 

390 

BLK 

400 

BLK 

410 

BLK 

420 

BLK 

430 

BLK 

440 

BLK 

450 

BLK 

460 

BLK 

470 

BLK 

480 

BLK 

490 

BLK 

500 

BLK 

510 

BLK 

520 

BLK 

530 
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c 

c 

c 


MODEL  ATMOSPHERE  DATA 


DATA  IATM/6/ 


BLR 

BLR 

BLR 


540 

550 

560 


DATA  NL/ 

34/ 

BLR 

570 

DATA  Z 

/ 

BLR 

560 

1  0., 

1  •  • 

2., 

3.. 

4. ,  5. , 

6.. 

7.,  8.,  BLR 

590 

2  9., 

10., 

11.. 

12., 

13.,  14., 

15., 

16.,  17.,  BLR 

600 

3  18., 

19., 

20., 

21., 

22.,  23., 

24., 

25.,  30.,  BLR 

610 

4  35., 

40., 

«., 

50., 

70.,  100., 99999./ 

BLR 

620 

DATA  PI/ 

BLR 

630 

*  1.013E403,  1. 

013E+03, 

1.018E+03,  1.010E+03, 

1 .013E+03,  1.013E+03.BLR 

640 

*  O.OOOE-Ol 

,  9. 

040E402, 

9.020E+02,  8.973E+02, 

8.960E+02,  8.878E+02 ,BLR 

650 

8.986E402,  0.000E-01, 
7.775E402,  7.950E+02, 
7.000E402,  6.798E+02, 
6.081E+02,  6.160E+02, 
5 . 540E+02 ,  5.313E+02, 
4.920E402,  4.870E+02, 
O.OOOE-Ol,  4.320E+02, 
4.111E+02,  O.OOOE-Ol, 
3.308E402,  3.565E+02 , 
3.107E+02,  2.829E+02, 
2.568E402,  2.677E+02, 
2.430E+02,  2.199E+02, 
2.130E+02,  2.090E+02 , 
0.000E-01,  1.820E402, 
1 .658E+02,  0.000E-01 , 
1 .291E+02,  1.417E402, 
1 .250E+02,  1.103E402, 
DATA  P2/ 

1 .007E+02,  1.080E402, 
9.500E401,  8.610E+01 , 
7.890E+01,  8.120E+01 , 
O.OOOE-Ol,  6.660E+01, 
6.467E-HJ1,  O.OOOE-Ol, 
5.014E+01,  5.529E+01 , 
5.070E+01 ,  4.277E+01, 
3.910E4O1,  4.360E+01 , 
3.760E401,  3.340E+01 , 
3.000E+01,  3.220E+01 , 
O.OOOE-Ol,  2.570E+01, 
2.549E+01,  O.OOOE-Ol, 
1.020E+01,  1.1971401, 
6.610E+00,  4.701E400, 
2.530E+00,  3.400E+00, 
1.760E400,  1.290E+00, 
8.540E-01,  9.510E-01 , 
O.OOOE-Ol,  5.790E-02, 
5.520E-02,  O.OOOE-Ol, 
DATA  P3/ 

3.000E-04,  3.008E-04, 
O.OOOE-Ol,  O.OOOE-Ol, 
DATA  T1  / 


8.050E4O2,  8.020E+02, 
O.OOOE-Ol,  7.150E402, 
7.012E+02,  O.OOOE-Ol, 


5.932E402, 
5.410E+02, 
4.627E+02, 
4.260E+02, 
3.780E402, 
O.OOOE-Ol, 
3 . 080E+02 , 
2.418E+02, 
2.300E+02 , 
1.882E+02, 
1.790E+02, 
1.560E+02, 
O.OOOE-Ol, 
1.211E402, 

9.431E401, 
9.280E401, 
7.350E4O1, 
6.950E+01, 
5.650E+01, 
O.OOOE-Ol, 
4.729E401, 
3.647E+01 , 
3.750E+01 , 
2.860E+01 , 
2.770E+01 , 
1 .220E+01 , 
O.OOOE-Ol, 
5.746E400, 
2.243E+00, 
1.810E+00, 
6.820E-01, 
6.71 0E-02 , 
3 . 000E-04 , 

O.OOOE-Ol, 

O.OOOE-Ol, 


6.166E402, 
5.158E+02, 
4.730E+02, 
4.016E+02, 
3.720E+02, 
3.290E+02, 
O.OOOE-Ol, 
2.650E+02, 
2.067E+02, 
1 .977E+02 , 
1.610E4O2, 
1.530E+02, 
1.320E+02, 
O.OOOE-Ol, 

1.035E402, 
8.058E+01 , 
7 .980E+01 , 
6.280E+01, 
5.950E+01, 
4.800E+01 , 
O.OOOE-Ol, 
4.047E401, 
3. 109E+01 , 
3.227E+01, 
2.430E+01, 
1 .320E+01 , 
6.000E+00, 
O.OOOE-Ol, 
2.871E400, 
1.113E+00, 
9.870E-01, 
4.670E-02, 
3.000E-04, 


7.897E+02, 
7.100E+02, 
6 . 330E+02 , 
O.OOOE-Ol, 
5.405E+02, 
4.467E+02, 
4.130E+02, 
3.473E+02, 
3.240E4O2, 
2.860E+02, 
O.OOOE-Ol, 
2.270E+02, 
1.766E+02, 
1.700E+02, 
1.378E+02, 
1.300E+02, 
1.110E+02, 

O.OOOE-Ol, 
8.850E+01 , 
6.882E+01 , 
6.860E+01 , 
5.370E+01, 
5.100E+01 , 
4.090E+01, 
O.OOOE-Ol, 
3.467E+01, 
2.649E+01 , 
2.780E+01 , 
1.110E401, 
6.520E+00, 
3.050E400, 
O.OOOE-Ol, 
1.491E400, 
5.719E-01, 
7.070E-02, 
3.000E-04, 


O.OOOE-Ol,  O.OOOE-Ol, 
O.OOOE-Ol/ 


7.929E+02,BLR  660 
6.938E+02.BLR  670 
6.280E402.BLR  680 
5.590E-K)2,BLR  690 
O.OOOE-Ol, BLR  700 
4.722E402 ,BLR  710 
3.853E+02.BLR  720 
3 . 590E+02 , BLR  730 
2.992E+02.BLR  740 
2.810E+02.BLR  750 
2.470E+02.BLR  760 

O.OOOE-Ol, BLR  770 
1 . 940E+02 , BLR  780 
1.510E+02.BLR  790 

1.460E+02.BLR  800 

1.178E+02.BLR  810 

1.110E402/BLR  820 

BLR  830 
9.370E+01 ,BLR  840 
O.OOOE-Ol, BLR  850 
7 .565E+01 ,BLR  860 
5.875E+01 ,BLR  870 
5.890E+01 ,BLR  880 
4.580E+01 ,BLR  890 
4.370E+01 ,BLR  900 
3.500E+01 ,BLK  910 
O.OOOE-Ol, BLR  920 
2.972E+01 ,BLR  930 
2.256E401 ,BLR  940 
1.340E+01 ,BLR  950 
5.180E+O0.BLR  960 
3 . 330E+00 , BLR  970 
1.590E+00.BLR  980 
O.OOOE-Ol, BLR  990 
7.978E-01 ,BLR  1000 
4.016E-02,BLR  1010 
3.000E-04/BLR  1020 
BLR  1030 
O.OOOE-Ol, BLR  1040 
BLR  1050 
BLR  1060 
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3  .OOOE+02', 

2.940E402, 

2.722E+02, 

2.870E+02, 

2.571E402, 

2.881E+02,BLK 

1070 

o.oooe-oi; 

2.940E+02, 

2.900E+02, 

2.687E+02, 

2.820E+02, 

2 .591E+02 ,BLK 

1080 

2.816E+02. 

2.559E+02, 

O.OOOE-OI, 

2.880E+02, 

2.850E+02 , 

2.652E+02, 

2.760E+02 ,BLK 

1090 

2.751E+02, 

O.OOOE-OI , 

2.840E+02, 

2.790E+02, 

2.617E+02 ,BLK 

1100 

2.710E+02, 

2.527E402, 

2.687E+02, 

O.OOOE-OI , 

2.770E402, 

2.730E+02.BLK 

1110 

2.557E402, 

2.660E+02, 

2.477E+02, 

2.622E+02, 

O.OOOE-OI, 

2.700E402.BLK 

1120 

2.670E+02, 

2.497E+02, 

2.600E+02, 

2.409E+02, 

2.557E+02, 

O.OOOE-OI ,BLK 

1130 

2.640E+02, 

2.610E+02 , 

2.437E+02 , 

2.530E+02 , 

2.341E+02, 

2.492E+02 ,BLK 

1140 

O.OOOE-OI, 

2.570E+02, 

2.550E+02, 

2.377E+02, 

2.460E+02, 

2.273E+02 ,BLK 

1150 

2.427E+02 , 

O.OOOE-OI , 

2.500E+02, 

2.480E+02, 

2.317E+02, 

2.390E+02 ,BLK 

1160 

2.206E+02, 

2.362E+02 , 

O.OOOE-OI , 

2.440E+02, 

2.420E+02, 

2.257E+02 ,BLK 

1170 

2.320E+02, 

2.172E+02, 

2.297E+02 , 

O.OOOE-OI, 

2.370E+02, 

2.350E+02 ,BLK 

1180 

2.197E+02, 

2.250E+02, 

2.172E+02, 

2.232E402, 

O.OOOE-OI, 

2.300E+02.BLK 

1190 

2.290E402, 

2.192E+02, 

2.250E+02, 

2.172E+02, 

2.168E+02, 

O.OOOE-OI ,BLK 

1200 

2.240E+02, 

2.220E+02, 

2.187E+02, 

2.250E+02, 

2.172E+02, 

2.166E+02 ,BLK 

1210 

O.OOOE-OI , 

2.170E+02, 

2.160E+02, 

2.182E+02, 

2.250E+02, 

2. 172E+02 ,BLK 

1220 

2.166E+02, 

O.OOOE-OI , 

2.100E+02, 

2.160E+02, 

2.177E+02, 

2.250E+02 ,BLK 

1230 

2.172E+02, 

2.166E+02, 

O.OOOE-OI, 

2.040E+02, 

2.160E+02, 

2.172E+02 ,BLK 

1240 

2.250E+02, 

2.172E+02 , 

2. 166E+02 , 

O.OOOE-OI , 

1 .970E+02, 

2.160E+02/BLK 

1250 

DATA  T2  / 

BLK 

1260 

2.167E+02, 

2.250E+02, 

2.166E+02, 

2.166E+02, 

O.OOOE-OI , 

1.950E+02.BLK 

1270 

2.160E+02, 

2 . 162E+02 , 

2.250E+02, 

2.160E+02, 

2.166E+02, 

O.OOOE-OI ,BLK 

1280 

1 .990E+02, 

2.160E+02, 

2.157E+02, 

2.250E+02, 

2.154E+02, 

2.166E+02,BLK 

1290 

O.OOOE-OI, 

2.030E+02, 

2.170E+02, 

2.152E+02, 

2 . 250E+02 , 

2.148E+02.BLK 

1300 

2 . 166E+02 , 

O.OOOE-OI, 

2.070E+02, 

2.180E+02, 

2.152E+02, 

2 . 250E+02 , BLK 

1310 

2.141E+02, 

2.166E402, 

O.OOOE-OI, 

2.110E+02, 

2.190E+02, 

2.152E+02.BLK 

1320 

2.250E+02, 

2.136E+02, 

2.176E402, 

O.OOOE-OI , 

2.150E+02, 

2 . 200E+02 , BLK 

1330 

2.152E+02, 

2.250E+02, 

2.130E+02, 

2.186E+02, 

O.OOOE-OI, 

2.170E+02.BLK 

1340 

2.22QE+02, 

2.152E402, 

2.250E402, 

2.124E+02, 

2.196E+02, 

O.OOOE-OI ,BLK 

1350 

2.190E+02, 

2.230E+02, 

2.152E+02, 

2.260E+02, 

2.118E+02, 

2 . 206E+02 , BLK 

1360 

O.OOOE-OI, 

2.210E+02, 

2.240E+02, 

2.152E402, 

2 . 280E+02 , 

2.112E+02,BLK 

1370 

2.216E+02, 

O.OOOE-OI, 

2.320E+02, 

2 . 340E+02 , 

2.174E+02, 

2 . 350E+02 , BLK 

1380 

2.160E+02, 

2.265E+02, 

O.OOOE-OI, 

2.430E+02, 

2.450E402, 

2.278E+02.BLK 

1390 

2.470E+02, 

2.222E+02, 

2.365E+02, 

O.OOOE-OI, 

2.540E+02, 

2 . 580E+02 , BLK 

1400 

2.432E+02, 

2.620E+02, 

2.347E+02, 

2.534E+02, 

O.OOOE-OI , 

2.650E+02.BLK 

1410 

2.700E+02, 

2.585E+02 , 

2.740E+02 , 

2.470E+02, 

2.642E+02, 

O.OOOE-OI ,BLK 

1420 

2.700E+02, 

2.760E+02, 

2.657E+02, 

2.770E+02, 

2.593E+02, 

2.706E+02,BLK 

1430 

O.OOOE-OI, 

2.190E+02, 

2.180E+02, 

2.307E402, 

2.160E+02, 

2 . 457E+02 , BLK 

1440 

2.197E+02, 

O.OOOE-OI, 

2.100E+02, 

2.100E+02, 

2.102E+02, 

2.100E+02/BLK 

1450 

DATA  T3  / 

BLK 

1460 

2.100E+02, 

2.100E402, 

O.OOOE-OI , 

2.100E+02, 

2.100E+02, 

2.100E+02.BLK 

1470 

2.100E+02, 

2.100E+02, 

2.100E+02, 

O.OOOE-OI/ 

BLK 

1480 

DATA  VH1  / 

BLK 

1490 

1 .900E+01 , 

1.400E+01 , 

3 . 500E+00 , 

9.100E+00, 

1.200E+00, 

5.900E+00.BLK 

1500 

O.OOOE-OI , 

1.300E-K51, 

9.300E+00, 

2.500E+00, 

6.000E+00, 

1.200E+O0.BLK 

1510 

4.200E400, 

O.OOOE-OI, 

9.300E+00, 

5.900E+00, 

1.800E+00, 

4.200E+00,BLK 

1520 

9.400E-01, 

2.900E+00, 

O.OOOE-OI , 

4.700E+00, 

3 . 300E+00 , 

1.200E+00.BLK 

1530 

2.700E400, 

6.800E-01, 

1 .800E+00, 

O.OOOE-OI , 

2 . 200E+00 , 

1.900E+00,BLK 

1540 

6.600E-01 , 

1.700E+00, 

4.100E-01, 

1 .100E+00, 

O.OOOE-OI , 

1.500E+00,BLK 

1550 

1 .000E+00, 

3.800E-01, 

1.000E+00, 

2.000E-01 , 

6.400E-01, 

O.OOOE-OI ,BLK 

1560 

8.500E-01, 

6.100E-01 , 

2.100E-01, 

5.400E-01 , 

9.800E-02, 

3.800E-01 ,BLK 

1570 

O.OOOE-OI, 

4.700E-01, 

3.700E-01, 

8.500E-02, 

2.900E-01, 

5.400E-02.BLK 

1580 

2.100E-01 , 

O.OOOE-OI, 

2.500E-01, 

2.100E-01, 

3.500E-02, 

1 .300E-01 ,BLK 

1590 

D-55 


1.100E-02, 

1.200E-0.' , 

O.OOOE-Ol, 

1.200E-01, 

1.200E-01, 

1 .600E-02 ,BLK 

1600 

4.200E-02, 

8.400E-07 , 

4.600E-02, 

O.OOOE-Ol, 

5 . 000E-02 , 

6 . 400E-02 , BLK 

1610 

7 .500E-03, 

1 . 50CE-02 , 

5.500E-03, 

1.800E-02, 

O.OOOE-Ol, 

1.700E-02.BLK 

1620 

2.200E-02, 

6.900E-0:, 

9.400E-03, 

3 . 800E-03 , 

8.200E-03, 

O.OOOE-Ol, BLK 

1630 

6.000E-03, 

6.000E-03, 

6.000E-03 , 

6.000E-03, 

2.600E-03, 

3.700E-03.BLK 

1640 

O.OOOE-Ol, 

1.800E-03, 

1.800E-03, 

1.800E-03, 

1.800E-03, 

1 . 800E-03 , BLK 

1650 

1.800E-03, 

O.OOOE-Ol, 

1.000E-03, 

1.000E-03, 

1.000E-03, 

1.000E-03.BLK 

1660 

1.000E-03, 

8.400E-04, 

O.OOOE-Ol, 

7.600E-04, 

7.600E-04, 

7.600E-04  BLK 

1670 

7.600E-04, 

7.600E-04, 

7.200E-04, 

O.OOOE-Ol, 

6 . 400E-04 , 

6 . 400E-04 /BLK  1680 

DATA  WH2  / 

BLK 

1690 

6.400E-04, 

6.400E-04, 

6.400E-04, 

6.100E-04, 

O.OOOE-Ol, 

5.600E-04.BLK  1700 

5.600E-04, 

5.600E-04, 

5.600E-04, 

5.600E-04, 

5 . 200E-04 , 

O.OOOE-Ol, BLK 

1710 

5.000E-04, 

5.000E-04, 

5.000E-04, 

5.000E-04, 

5.000E-04, 

4.400E-04.BLK 

1720 

O.OOOE-Ol, 

4.900E-04, 

4.900E-04, 

4.900E-04, 

4 . 900E-04 , 

4.900E-04.BLK 

1730 

4.400E-04, 

O.OOOE-Ol, 

4.500E-04, 

4.500E-04, 

4 . 500E-04 , 

4.500E-04.BLK 

1740 

4.500E-04, 

4.400E-04, 

O.OOOE-Ol, 

5.100E-04, 

5.100E-04, 

5 . 100E-04 , BLK 

1750 

5.100E-04, 

5 . 100E-04 , 

4 . 800E-04 , 

O.OOOE-Ol, 

5.100E-04, 

5.100E-04.BLK 

1760 

5.100E-04, 

5.100E-04, 

5.100E-04, 

5 . 200E-04 , 

O.OOOE-Ol, 

5.400E-04.BLK 

1770 

5.400E-04, 

5.400E-04 , 

5.400E-04 , 

5 . 400E-04 , 

5.700E-04, 

O.OOOE-Ol, BLK 

1780 

6.000E-04, 

6.000E-04, 

6 . 000E-04 , 

6 . 000E-04 , 

6.000E-04, 

6.100E-04.BLK 

1790 

O.OOOE-Ol, 

6.700E-04, 

6.700E-04, 

6.700E-04, 

6.700E-04, 

6.700E-04.BLK 

1800 

6.600E-04, 

O.OOOE-Ol, 

3.600E-04 , 

3.600E-04, 

3.600E-04, 

3.600E-04.BLK 

1810 

3.600E-04, 

3.800E-04, 

O.OOOE-Ol, 

1 . 100E-04 , 

1.100E-04, 

1.100E-04.BLK 

1820 

1.100E-04, 

1.100E-04, 

1.600E-04, 

O.OOOE-Ol, 

4.300E-05, 

4 . 300E-05 , BLK 

1830 

4.300E-05, 

4.300E-05, 

4.300E-05, 

6.700E-05, 

O.OOOE-Ol, 

1.900E-05.BLK 

1840 

1.900E-05, 

1.900E-05, 

1.900E-05, 

1 . 900E-05 , 

3 . 200E-05 , 

O.OOOE-Ol, BLK 

1850 

6 . 300E-06 , 

6 . 300E-06 , 

6.300E-06, 

6.300E-06, 

6 . 300E-06 , 

1 .200E-05,BLK 

1860 

O.OOOE-Ol, 

1.400E-07, 

1.400E-07, 

1.400E-07, 

1.400E-07, 

1.400E-07.BLK 

1870 

1 . 500E-07 , 

O.OOOE-Ol, 

1.000E-09, 

1.000E-09, 

1.000E-09, 

1.000E-09/BLK  1880 

DATA  WH3  / 

BLK 

1890 

* 

1.000E-09, 

1.000E-09, 

O.OOOE-Ol, 

O.OOOE-Ol, 

O.OOOE-Ol, 

O.OOOE-Ol, BLK 

1900 

* 

O.OOOE-Ol, 

O.OOOE-Ol, 

O.OOOE-Ol, 

O.OOOE-Ol/ 

BLK 

1910 

DATA  W01  / 

BLK 

1920 

* 

5 . 600E-05 , 

6.000E-05, 

6 . 000E-05 , 

4 . 900E-05 , 

4. 100E-05, 

5 . 400E-05 , BLK 

1930 

* 

O.OOOE-Ol, 

5.600E-05, 

6.000E-05, 

5.400E-05, 

5.400E-05, 

4.100E-05.BLK 

1940 

* 

5.400E-05, 

O.OOOE-Ol, 

5.400E-05, 

6 . 000E-05 , 

4 . 900E-05 , 

5.600E-05.BLK 

1950 

* 

4.100E-05, 

5.400E-05, 

O.OOOE-Ol, 

5.100E-05, 

6.200E-05, 

4 . 900E-05 , BLK 

1960 

* 

5.800E-05, 

4.300E-05, 

5.000E-05, 

O.OOOE-Ol, 

4.700E-05, 

6 . 400E-05 , BLK 

1970 

* 

4.900E-05, 

6.000E-05, 

4 . 500E-05 , 

4.600E-05, 

O.OOOE-Ol, 

4 . 500E-05 , BLK 

1980 

* 

6 . 600E-05 , 

5.800E-05, 

6.400E-05, 

4.700E-05, 

4.600E-05, 

O.OOOE-Ol, BLK 

1990 

* 

4 . 300E-05 , 

6.900E-05, 

6.400E-05, 

7.100E-05, 

4.900E-05, 

4 . 500E-05 , BLK 

2000 

* 

O.OOOE-Ol, 

4.100E-05, 

7.500E-05, 

7.700E-05, 

7.500E-05, 

7.100E-05.BLK 

2010 

* 

4 . 900E-05 , 

O.OOOE-Ol, 

3 . 900E-05 , 

7.900E-05, 

9.000E-05, 

7.900E-05.BLK 

2020 

* 

9.000E-05, 

5.200E-05, 

O.OOOE-Ol, 

3.900E-05, 

8.600E-05, 

1.200E-04.BLK 

2030 

* 

1.100E-04, 

1.600E-04, 

7.100E-05 , 

O.OOOE-Ol, 

3 . 900E-05 , 

9.000E-05.BLK 

2040 

* 

1 .600E-04, 

1.300E-04, 

2.400E-04, 

9 . 000E-05 , 

O.OOOE-Ol, 

4 . 100E-05 , BLK  2050 

* 

1.100E-04, 

2.100E-04, 

1.800E-04, 

3.200E-04, 

1.300E-04, 

O.OOOE-Ol, BLK 

2060 

* 

4.300E-05, 

1.200E-04 , 

2.600E-04, 

2.100E-04, 

4.300E-04, 

1.600E-04.BLK  2070 

* 

O.OOOE-Ol, 

4.500E-05, 

1 . 500E-04 , 

3.000E-04, 

2.600E-04, 

4.700E-04,BLK 

2080 

* 

1.700E-04, 

O.OOOE-Ol, 

4.500E-05, 

1.800E-04, 

3.200E-04, 

2.800E-04.BLK  2090 

* 

4.900E-04, 

1.900E-04, 

O.OOOE-Ol, 

4.700E-05, 

1 . 900E-04 , 

3.400E-04,BLK  2100 

* 

3.200E-04, 

5.600E-04, 

2.100E-04, 

O.OOOE-Ol, 

4.700E-05, 

2.100E-04/BLK  2110 

DATA  V02  / 

BLK  2120 

D-56 


u  CJ>  o  o  o 


* 

3.600E-04, 

3.400E-04, 

6.200E-04, 

2.400E-04, 

O.OOOE-OI 

* 

2.400E-04, 

3 . 900E-04 , 

3 . 900E-04 , 

6 . 200E-04 , 

2.800E-04 

* 

9.000E-05 , 

2 . 800E-04 , 

4.100E-04, 

4.100E-04, 

6.200E-04 

* 

0.000E-01, 

1.400E-04, 

3.200E-04, 

4 . 300E-04 , 

4.100E-04 

* 

3 . 500E-04 , 

O.OOOE-OI , 

1 . 900E-04 , 

3.400E-04, 

4 . 500E-04 

* 

5.600E-04, 

3 . 800E-04 , 

O.OOOE-OI, 

2.400E-04, 

3.600E-04 

* 

3.600E-04, 

5.100E-04, 

3.800E-04, 

O.OOOE-OI, 

2 . 800E-04 

* 

4.300E-04, 

3 . 200E-04 , 

4.700E-04, 

3.900E-04, 

O.OOOE-OI 

* 

3.400E-04, 

3.900E-04, 

3.000E-04, 

4.300E-04, 

3 . 800E-04 

* 

3.400E-04, 

3.200E-04, 

3.600E-04, 

2.800E-04, 

3.600E-04 

* 

0.000E-01, 

3.400E-04, 

3.000E-04, 

3.400E-04, 

2.600E-04 

* 

3.400E-04, 

O.OOOE-OI , 

2.400E-04, 

2 . OOOE-04 , 

1.900E-04 

* 

1 . 500E-04 , 

2.000E-04, 

O.OOOE-OI, 

9.200E-05, 

9.200E-05 

* 

9.200E-05, 

9 . 200E-05 , 

1.100E-04, 

O.OOOE-OI, 

4.100E-05 

* 

4 . 100E-05 , 

4.100E-05, 

4.100E-05, 

4 . 900E-05 , 

O.OOOE-OI 

* 

1 . 300E-05 , 

1.300E-05, 

1.300E-05, 

1.300E-05, 

1.700E-05 

* 

4 . 300E-06 , 

4 . 300E-06 , 

4.300E-06, 

4.300E-06, 

4 . 300E-06 

* 

0.000E-01, 

8.600E-08, 

8.600E-08, 

8.600E-08, 

8.600E-08 

* 

8.600E-08, 

O.OOOE-OI, 

4.300E-11, 

4.300E-1 1 , 

4.300E-1 1 

DATA  W03  / 

* 

4.300E-11 , 

4.300E-11, 

O.OOOE-OI, 

O.OOOE-OI , 

O.OOOE-OI 

* 

0.000E-01, 

O.OOOE-OI , 

O.OOOE-OI, 

O.OOOE-OI/ 

*  U.UUUE-U1,  O.OOOE-OI,  O.OOOE-OI ,  0.000E-01/  BLK 

HMIX(I)«HN03  VOLUME  MIXING  RATIOS  TIMES  E+9  FROM  EVANS  PROFILE  BLK 
DATA  UM>'./fi*0 . , I .F-30,0. 1 ,0. 33, 0. 8, 1. 2, 1. 4,1. 6,1. P-,1. 9, 2. C, 2.1 ,2.3fLK 
1, 3 -0,3. 7,4. 2, 5. 2,6.0, 3. F.  ,2.6,0.22,1  .E-30, 5*0.0/  FLK 

DATA  VSB  /23., 5., 23., 5., 5., 50., 23., 0.2, 0.5/  BLK 

DATA  HZ(1)/8H  RURAL  /,HZ(2)/8H  RURAL  /,  BLK 

1HZ(3)/8HMARITIME  / ,HZ(4 )/8HMARITIME  /,HZ(5)/8H  URBAN  /,  BLK 

2HZ(6 )/8HTROPOSPH  / ,HZ(7 )/8HUSER  DEF  / ,HZ(8)/8HF0G1  (A)  /,  BLK 

3HZ(9)/8HFOG2  (R)  /  BLK 

4,HZ(10)/8HBACK  STR  / ,HZ(11)/8HAGED  VOL  / ,HZ( 12)/8HFRESH  VO  /  BLK 

4  ,HZ(13)/8HAGED  VOL  / ,HZ(14)/8HFRESH  VO  /  BLK 

5  ,HZ(15)/8HMET  DUST  /  BLK 

DATA  SEASN ( 1 ) / 8HSPRG  SUM/ , SEASN(2 ) /8HFAL  WINT/  BLK 

DATA  VULCN(1 )/8HSTR  BKGR/ ,VULCN(2 )/8HAG  V-MDV/,  BLK 

1VULCN(3)/8HFR  V-HIV/ ,VULCN(4)/8HAG  V-HIV/ ,VULCN(5)/8HFR  V-MDV/  BLK 
DATA  Hri>’.(9),H'-ir(29)/2*l  .F-30/  ELK. 

SUBROUTINE  PRFDTA  BLK 

BLK 

AEROSOL  PROFILE  DATA  BLK 


DATA  ZHT 
*  0., 

1., 

/ 

2., 

3., 

5., 

6., 

7., 

*  9., 

10., 

11., 

12., 

13., 

14., 

15., 

16., 

*  18., 

19., 

20., 

21., 

22., 

23., 

24., 

25., 

*  35., 

40., 

45., 

50., 

70., 

100., 99999./ 

DATA  HZ2K/6.62E-02,  4.15E-02,  2.60E-02,  31*0., 

*  1.58E-01,  9.91E-02,  6.21E-02,  31*0., 

*  3.79E-01,  3.79E-01,  6.21E-02,  31*0., 

*  7.70E-01,  7.70E-01,  6.21E-02,  31*0., 

*  1.94E+00,  1.94E+00,  6.21E-02,  31*0./ 

DATA  FAWI50  /  3*0., 

1  1.14E-02,  6.43E-03,  4.85E-03,  3.54E-03,  2.31E-03,  1.41E-03, 


2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

23AO 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 


2  9 .80E-04 , 24*0 . / 

BLK 

2660 

DATA  FAHI23 

/  3*0., 

BLK 

2670 

1  2.72E-02,  1.20E-02, 

4.85E-03,  3.54E-03, 

2.31E-03,  1.41E-03, 

BLK 

2680 

2  9.80E-04 ,24*0./ 

BLK 

2690 

DATA  SPSU50 

/  3*0., 

BLK 

2700 

1  1.46E-02,  1.02E-02, 

9.31E-03,  7.71E-03, 

6.23E-03,  3.37E-03, 

BLK 

2710 

2  1 .82E-03 ,24*0./ 

BLK 

2720 

DATA  SPSU23 

/  3*0., 

BLK 

2730 

1  3.46E-02,  1.85E-02, 

9.31E-03,  7.71E-03, 

6.23E-03,  3.37E-03, 

BLK 

2740 

2  1.82E-03,24*0./ 

BLK 

2750 

DATA  BASTFV 

/  10*0., 

BLK 

2760 

1  7.87E-04,  7.14E-04, 

6.64E-04,  6.23E-04, 

6.45E-04,  6.43E-04, 

BLK 

2770 

2  6.41E-04,  6.00E-04, 

5.62E-04,  4.91E-04, 

4 . 23E-04 ,  3.52E-04, 

BLK 

2780 

3  2.95E-04,  2.42E-04, 

1.90E-04,  1.50E-04, 

3.32E-05,7*0./ 

BLK 

2790 

DATA  VUMOFW 

/  10*0., 

BLK 

2800 

1  1.38E-03,  1.79E-03, 

2.21E-03,  2.75E-03, 

2.89E-03,  2.92E-03, 

BLK 

2810 

2  2.73E-03,  2.46E-03, 

2.10E-03,  1.71E-03, 

1.35E-03,  1.09E-03, 

BLK 

2820 

3  8.60E-04,  6.60E-04, 

5.15E-04,  4.09E-04, 

7.60E-05,7*0./ 

BLK 

2830 

DATA  HIVUFW 

/  10*0., 

BLK 

2840 

1  1.71E-03,  2.31E-03, 

3.25E-03,  4.52E-03, 

6.40E-03,  7.81E-03, 

BLK 

2850 

2  9.42E-03,  1.07E-02, 

1.10E-02,  8.60E-03, 

5.10E-03,  2.70E-03, 

BLK 

2860 

3  1.46E-03,  8.90E-04, 

5.80E-04,  4.09E-04, 

7.60E-05,7*0./ 

BLK 

2870 

DATA  EXVUFW 

/  10*0., 

BLK 

2880 

1  1.71E-03,  2.31E-03, 

3.25E-03,  4.52E-03, 

6.40E-03 ,  1.01E-02, 

BLK 

2890 

2  2.35E-02,  6.10E-02, 

1.00E-01,  4.00E-02, 

9.15E-03,  3.13E-03, 

BLK 

2900 

3  1.46E-03,  8.90E-04 , 

5.80E-04,  4.09E-04, 

7.60E-05,7*0./ 

BLK 

2910 

DATA  BASTSS 

/  10*0., 

BLK 

2920 

1  1.14E-03,  7.99E-04, 

6.41E-04,  5.17E-04, 

4.42E-04,  3.95E-04, 

BLK 

2930 

2  3.82E-04,  4.25E-04, 

5 . 20E-04 ,  5.81E-04, 

5.89E-04,  5.02E-04, 

BLK 

2940 

3  4.20E-04,  3.00E-04, 

1.98E-04,  1.31E-04, 

3.32E-05,7*0./ 

BLK 

2950 

DATA  VUMOSS 

/  10*0., 

BLK 

2960 

1  1.85E-03,  2.12E-03, 

2.45E-03,  2.80E-03, 

2.89E-03,  2.92E-03, 

BLK 

2970 

2  2.73E-03,  2.46E-03, 

2.10E-03,  1.71E-03, 

1.35E-03,  1.09E-03, 

BLK 

2980 

3  8.60E-04,  6.60E-04, 

5.15E-04,  4.09E-04, 

7.60E-05,7*0./ 

BLK 

2990 

DATA  HIVUSS 

/  10*0., 

BLK 

3000 

1  1.85E-03,  2.12E-03, 

2.45E-03,  2.80E-03, 

3.60E-03,  5.23E-03, 

BLK 

3010 

2  8.11E-03,  1 . 20E-02 , 

1.52E-02,  1.53E-02, 

1.17E-02,  7.09E-03, 

BLK 

3020 

3  4.50E-03,  2.40E-03, 

1.28E-03,  7.76E-04, 

7.60E-05,7*0./ 

BLK 

3030 

DATA  EXVUSS 

/  10*0., 

BLK 

3040 

1  1.85E-03,  2.12E-03, 

2.45E-03 ,  2.80E-03, 

3.60E-03,  5.23E-03, 

BLK 

3050 

2  8.11E-03,  1.27E-02, 

2.32E-02,  4.85E-02, 

1.00E-01,  5.50E-02, 

BLK 

3060 

3  6.10E-03,  2.40E-03, 

1.28E-03,  7.76E-04, 

7.60E-05,7*0./ 

BLK 

3070 

DATA  UPNATM 

/  26*0., 

BLK 

3080 

1  3.32E-05,  1.64E-05, 

7.99E-06 ,  4.01E-06, 

2.10E-06,  1.60E-07, 

BLK 

3090 

2  9.31E-10,  0.  / 

BLK 

3100 

DATA  VUTONO 

/  26*0., 

BLK 

3110 

1  7.60E-05,  2.45E-05, 

7.99E-06,  4.01E-06, 

2.10E-06,  1.60E-07, 

BLK 

3120 

2  9.31E-10,  0.  / 

BLK 

3130 

DATA  VUTOEX 

/  26*0., 

BLK 

3140 

1  7.60E-05,  7.20E-05, 

6.95E-05,  6.60E-05, 

5.04E-05,  1.03E-05, 

BLK 

3150 

2  4.50E-07,  0.  / 

BLK 

3160 

DATA  EXDPAT 

/  26*0., 

BLK 

3170 

1  3 . 32E-05 ,  4.25E-05, 

5.59E-05,  6.60E-05, 

5.04E-05,  1.03E-05, 

BLK 

3180 
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2  4.50E-07, 

0. 

/ 

BLR  3190 

ccc 

0-2KM 

BLR  3200 

ccc 

HZ2K-5  VIS 

PROFILES-  50KM.23KM 

,  10KM.5KM.2KM 

BLR  3210 

ccc 

>2-9KM 

BLR  3220 

ccc 

FAWI50-FALL/WINTER  50KM  VIS 

BLR  3230 

ccc 

FAWI23-FALL/WINTER  23RM  VIS 

BLR  3240 

ccc 

SPSU50-SPRING/ SUMMER  50KM  VIS 

BLR  3250 

ccc 

SPSU23-SPRING/SUMMER  23RM  VIS 

BLR  3260 

ccc 

>9-30RM 

BLR  3270 

ccc 

BASTFW-BACRGROUND  STRATOSPHERIC  FALL/WINTER 

BLR  3280 

ccc 

VUMOFW-MODERATE  VOLCANIC 

FALL/WINTER 

BLR  3290 

ccc 

HIVUFW-HIGH  VOLCANIC 

FALL/WINTER 

BLR  3300 

ccc 

EXVUFW-EXTREME  VOLCANIC 

FALL/WINTER 

BLR  3310 

ccc 

BASTSS , VUMOSS , HI VUS  S , EXVUS S- 

SPRING/SUMMER 

BLR  3320 

ccc 

>30-1 OOKM 

BLR  3330 

ccc 

UPNATM-NORMAL  UPPER  ATMOSPHERIC 

BLR  3340 

ccc 

VUTONO-TRANSITION  FROM  VOLCANIC  TO  NORMAL 

BLR  3350 

ccc 

VUTOEX-TRANSITION  FROM  VOLCANIC  TO  EXTREME 

BLR  3360 

ccc 

EXUPAT-EXTREME  UPPER  ATMOSPHERIC 

BLR  3370 

ccc 

READ  IN  AEROSOL  MODELS  EXTINCTION  AND  ABSORPTION  COEFFICIENTS 

BLR  3380 

c 

SUBROUTINE 

:  EXTDTA 

BLR  3390 

c 

BLR  3400 

c 

AEROSOL  EXTINCTION  AND  ABSORPTION  DATA 

BLR  3410 

c 

BLR  3420 

DATA  VX2 

/ 

BLR  3430 

*  .2000, 

.3000, 

.3371,  .5500, 

.6943, 

1.0600, 

1.5360, 

BLR  3440 

*  2.0000, 

2.2500, 

2.5000,  2.7000, 

3.0000, 

3.3923, 

3.7500, 

BLR  3450 

*  4.5000, 

5.0000, 

5.5000,  6.0000, 

6.2000, 

6.5000, 

7.2000, 

BLR  3460 

*  7.9000, 

8.2000, 

8.7000,  9.0000, 

9.2000, 

10.0000, 

10.5910, 

BLR  3470 

*  11.0000, 

11.5000, 

12.5000,  14.8000,  15.0000, 

16.4000, 

17.2000, 

BLR  3480 

*  18.5000, 

21.3000, 

25.0000,  30.0000,  40.0000/ 

BLR  3490 

DATA  R0RXT1 

/ 

BLR  3500 

1  2.09291, 

1.74582, 

1.60500,  1.00000, 

.75203, 

.41943, 

.24070, 

BLR  3510 

2  .14709, 

.13304, 

.12234,  .13247, 

.11196, 

.10437, 

.09956, 

BLR  3520 

3  .09190, 

.08449, 

.07861,  .07025, 

.07089, 

.07196, 

.07791, 

BLR  3530 

4  .04481 , 

.04399, 

.12184,  .12658, 

.12829, 

.09152, 

.08076, 

BLR  3540 

5  .07456, 

.06880, 

.06032,  .04949, 

.05854, 

.06000, 

.06962, 

BLR  3550 

6  .05722, 

.06051, 

.05177,  .04589, 

.04304, 

BLR  3560 

1  2.09544, 

1.74165, 

1.59981,  1.00000, 

.75316, 

.42171, 

.24323, 

BLR  3570 

2  .15108, 

.13608, 

.12430,  .13222, 

.13823, 

.11076, 

.10323, 

BLR  3580 

3  .09475, 

.08728, 

.08076,  .07639, 

.07797, 

.07576, 

.07943, 

BLR  3590 

4  .04899, 

.04525, 

.12165,  .12741, 

.12778, 

.09032, 

.07962, 

BLR  3600 

5  .07380, 

.06880, 

.06329,  .05791, 

.06646, 

.06639, 

.07443, 

BLR  3610 

6  .06304, 

.06443, 

.05538,  .04867, 

.04519/ 

BLR  3620 

DATA  RURXI2 

/ 

BLR  3630 

1  2.07082, 

1.71456, 

1.57962,  1.00000, 

.76095, 

.43228, 

.25348, 

BLR  3640 

2  .16456, 

.14677, 

.13234,  .13405, 

.20316, 

.12873, 

.11506, 

BLR  3650 

3  .10481, 

.09709, 

.08918,  .09380, 

.09709, 

.08791, 

.08601 , 

BLR  3660 

4  .06247, 

.05601 , 

.11905,  .12595, 

.12348, 

.08741 , 

.07703, 

BLR  3670 

5  .07266, 

.07044, 

.07443,  .08146, 

.08810, 

.08563, 

.08962, 

BLR  3680 

6  .08051, 

.07677, 

.06658,  .05747, 

.05184, 

BLR  3690 

1  1.66076, 

1.47886, 

1.40139,  1.00000, 

.80652, 

.50595, 

.32259, 

BLR  3700 

2  .23468, 

.20772, 

.18532,  .17348, 

.35114, 

.20006, 

.17386, 

BLR  3710 
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3 

.16139, 

.15424, 

.14557, 

.16215, 

4 

.12968, 

.12601, 

.13551, 

.13582, 

5 

.09873, 

.10418, 

.13241, 

.15924, 

6 

.15184, 

.13848, 

.12563, 

.11076, 

DATA  RURBS1 

/ 

1 

.67196, 

.11937, 

.08506, 

.05930, 

2 

.01968, 

.02070, 

.02101, 

.05652, 

3 

.01462, 

.01310, 

.01627, 

.02013, 

4 

.02823, 

.03962, 

.06778, 

.07285, 

5 

.02557, 

.02342, 

.02177, 

.02627, 

6 

.02956, 

.03500, 

.03241 , 

.03297, 

1 

.62968, 

.10816, 

.07671, 

.05380, 

2 

.01829, 

.01899, 

.01962, 

.05525, 

3 

.01544, 

.01373, 

.01627, 

.02892, 

4 

.02835, 

.03854, 

.06684, 

.07272, 

5 

.02816, 

.02816, 

.03101, 

.03741, 

6 

.03734, 

.03956, 

.03601 , 

.03525, 

DATA  RURBS2 

/ 

1 

.51899, 

.08278, 

.05816, 

.04082, 

2 

.01513, 

.01481, 

.01633, 

.05278, 

3 

.01804, 

.01582, 

.01677, 

.04816, 

4 

.02930, 

.03677, 

.06209, 

.06911, 

5 

.03513, 

.03968, 

.05152, 

.06241 , 

6 

.05614, 

.05209, 

.04608, 

.04196, 

1 

.21943, 

.02848, 

.01943, 

.01342, 

2 

.01152, 

.00696, 

.01329, 

.06108, 

3 

.03361, 

.02949, 

.02652, 

.09437 , 

4 

.04380, 

.04557, 

.05380, 

.05715, 

5 

.06171, 

.07437, 

.10152, 

.12019, 

6 

.10766, 

.09487, 

.08430, 

.07348, 

DATA  URBXT1 

/ 

1 

1.88816, 

1.63316, 

1.51867, 

1.00000, 

2 

.21392, 

.19405, 

.17886, 

.18127, 

3 

.12715, 

.11880, 

.11234, 

.10601, 

4 

.08766, 

.08652, 

.11937, 

.12139, 

5 

.08595, 

.08196, 

.07563, 

.06696, 

6 

.06354, 

.06177, 

.05373, 

.04728, 

1 

1.95582, 

1.64994, 

1.53070, 

1.00000, 

2 

.21051, 

.18943, 

.17285, 

.17209, 

3 

.12728, 

.11861, 

.11089, 

.11329, 

4 

.08696, 

.08361 , 

.12013, 

.12418, 

5 

.08487, 

.08285, 

.08361 , 

.08430, 

6 

.07835, 

.07323, 

.06367, 

.05500, 

DATA  0RBXT2 

/ 

1 

1.96430, 

1.64032, 

1.52392, 

1.00000, 

2 

.20310, 

.17981, 

.16101, 

.15614, 

3 

.12215, 

.11361, 

.10500, 

.11715, 

4 

.08443, 

.08057, 

.10943, 

.11342, 

5 

.07886, 

.08032, 

.09101, 

.10070, 

6 

.09152, 

.08247, 

.07152, 

.06089, 

1 

1.41266, 

1.33816, 

1.29114, 

1.00000, 

2 

.25285, 

.21576, 

.18310, 

.16215, 

3 

.14778, 

.13892, 

.12943, 

.15525, 

.16766, 

.14994, 

.14032, 

BLK  3720 

.13228, 

.11070, 

.09994, 

BLR  3730 

.16139, 

.15949, 

.15778, 

BLR  3740 

.09601/ 

BLR  3750 
BLR  3760 

.05152, 

.05816, 

.05006, 

BLR  3770 

.02785, 

.01316, 

.00867, 

BLR  3780 

.02165, 

.02367, 

.03538, 

BLR  3790 

.08120, 

.04032, 

.03177, 

BLR  3800 

.03943, 

.03114, 

.03696, 

BLR  3810 

.03380, 

BLR  3820 

.04684, 

.05335, 

.04614, 

BLR  3830 

.06816, 

.01652, 

.00867, 

BLR  3840 

.02829, 

.02532, 

.03487, 

BLR  3850 

.08038, 

.03987, 

.03247, 

BLR  3860 

.04829, 

.04032, 

.04399, 

BLR  3870 

.03563/ 

BLR  3880 
BLR  3890 

.03570, 

.04158, 

.03620, 

BLR  3900 

.13690, 

.02494, 

.00886, 

BLR  3910 

.04367, 

.03013, 

.03443, 

BLR  3920 

.07475, 

.03892, 

.03494, 

BLR  3930 

.06937, 

.06203, 

.06215, 

BLR  3940 

.04095, 

BLR  3950 

.01171, 

.01437, 

.01323, 

BLR  3960 

.24690, 

.05323, 

.01430, 

BLR  3970 

.08506, 

.05348, 

.04627, 

BLR  3980 

.05899, 

.04861, 

.05253, 

BLR  3990 

.12190, 

.11734, 

.11411, 

BLR  4000 

.06861/ 

BLR  4010 
BLR  4020 

.77785, 

.47095, 

.30006, 

BLR  4030 

.16133, 

.14785, 

.14000, 

BLR  4040 

.10500, 

.10361, 

.10342, 

BLR  4050 

.12297, 

.09797, 

.09057 , 

BLR  4060 

.07209, 

.06842, 

.07177, 

BLR  4070 

.04051, 

BLR  4080 

.77614, 

.46639, 

.29487 , 

BLR  4090 

.21418, 

.15354, 

.14051, 

BLR  4100 

.11323, 

.10563, 

.10247, 

BLR  4110 

.12304, 

.09614, 

.08842, 

BLR  4120 

.08880, 

.08449, 

.08601 , 

BLR  4130 

.04747/ 

BLR  4140 
BLR  4150 

.77709, 

.46253, 

.28690, 

BLR  4160 

.26475, 

.15456, 

.13563, 

BLR  4170 

.11753, 

.10392, 

.09766, 

BLR  4180 

.11063, 

.08703, 

.08025, 

BLR  4190 

.10386, 

.09943, 

.09886, 

BLR  4200 

.05253, 

BLR  4210 

.83646, 

.55025, 

.35342, 

BLR  4220 

.37854, 

.20494, 

.16665, 

BLR  4230 

.15709, 

.13513, 

.12481, 

BLR  4240 
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4 

.11759, 

.11494, 

.11487, 

.11329, 

.11108, 

.09911, 

.09209, 

BLK  4250 

5 

.09342, 

.10120, 

.13177, 

.15696, 

.15766, 

.15513, 

.15203, 

BLR  4260 

6 

.14532, 

.13038, 

.11785, 

.10411, 

.09101/ 

BLK  4270 

DATA  URBBS1 

/ 

BLK  4280 

1 

.78437, 

.58975, 

.54285, 

.36184, 

.29222, 

.20886, 

.15658, 

BLK  4290 

2 

.12329, 

.11462, 

.10747, 

.11797, 

.10025, 

.08759, 

.08184, 

BLK  4300 

3 

.07506, 

.07006, 

.06741 , 

.06601, 

.06544, 

.06449, 

.06665, 

BLK  4310 

4 

.06278, 

.06949, 

.07316, 

.07462, 

.08101, 

.05753, 

.05272, 

BLK  4320 

5 

.04899, 

.04734, 

.04494, 

.04443, 

.05133, 

.04348, 

.04443, 

BLK  4330 

6 

.03994, 

.03981 , 

.03633, 

.03468, 

.03146, 

BLK  4340 

1 

.69032, 

.49367 , 

.45165, 

.2974 1, 

.24070, 

.17399, 

.13146, 

BLK  4350 

2 

.10354, 

.09589, 

.09025, 

.10411, 

.15101, 

.07880, 

.06949, 

BLK  4360 

3 

.06570, 

.06095, 

.05829, 

.07171, 

.06797, 

.05975, 

.06013, 

BLK  4370 

4 

.05589, 

.06051, 

.07139, 

.07494, 

.07956, 

.05525, 

.05184, 

BLK  4380 

5 

.05089, 

.05291 , 

.05886, 

.06380, 

.06880, 

.06127, 

.06019, 

BLK  4390 

6 

.05525, 

.05070, 

.04500, 

.04076, 

.03741/ 

BLK  4400 

DATA  0BJBBS2 

/ 

BLK  4410 

1 

.54848, 

.37101, 

.33734, 

.21949, 

.17785, 

.12968, 

.09854, 

BLK  4420 

2 

.07804, 

.07165, 

.06791, 

.08563, 

.19639, 

.06722, 

.05316, 

BLK  4430 

3 

.05316, 

.04886, 

.04620, 

.07570, 

.06899, 

.05291 , 

.05101, 

BLK  4440 

4 

.04734, 

.05025, 

.06171, 

.06570, 

.06854, 

.04892 , 

.04797, 

BLK  4450 

5 

.05057, 

.05665, 

.07127, 

.08095, 

.08411, 

.07728, 

.07475, 

BLK  4460 

6 

.06886, 

.06019, 

.05222, 

.04538, 

.04171, 

BLK  4470 

1 

.15975, 

.10000, 

.09013, 

.05785, 

.04671, 

.03424, 

.02633, 

BLK  4480 

2 

.02525, 

.01975, 

.02354, 

.06241, 

.26690, 

.05810, 

.02285, 

BLK  4490 

3 

.03810, 

.03386 , 

.03044, 

.09627 , 

.08557, 

.05405, 

.04576, 

BLK  4500 

4 

.04392, 

.04424, 

.04671 , 

.04791, 

.04861 , 

.04684, 

.05177, 

BLK  4510 

5 

.06158, 

.07475, 

.10342, 

.12146, 

.12177, 

.11734, 

.11335, 

BLK  4520 

6 

.10608, 

.091 71 , 

.08063, 

.06968, 

.06475/ 

BLK  4530 

DATA  0CHXT1 

t 

/ 

BLK  4540 

1 

1.47576, 

1.32614, 

1.26171, 

1.00000, 

.88133, 

.70297, 

.56487, 

BLK  4550 

2 

.46006, 

.42044, 

.38310, 

.35076, 

.42266, 

.32278, 

.28810, 

BLK  4560 

3 

.24905, 

.21184, 

.16734, 

.14791, 

.21532, 

.15076, 

.12057, 

BLK  4570 

4 

.10038, 

.10703, 

.15070, 

.15665, 

.14639, 

.10228, 

.08367, 

BLK  4580 

5 

.07373, 

.06829, 

.05044, 

.04373, 

.04962, 

.06158, 

.07703, 

BLK  4590 

6 

.07234, 

.06297, 

.05481 , 

.05329, 

.08741, 

BLK  4600 

1 

1.36924, 

1.25443, 

1.20835, 

1.00000, 

.91367, 

.77089, 

.64987, 

BLK  4610 

2 

.54886, 

.50247, 

.45038, 

.38209, 

.50589, 

.43766, 

.38076, 

BLK  4620 

3 

.31658, 

.27475, 

.22215, 

.21019, 

.27570, 

.21057, 

.16949, 

BLK  4630 

4 

.14209, 

.14215, 

.16956, 

.17082, 

.16025, 

.11665, 

.09759, 

BLK  4640 

5 

.09215, 

.09373, 

.10532, 

.12570, 

.13000, 

.13633, 

.14291, 

BLK  4650 

6 

.13506, 

.11475, 

.09658, 

.08291, 

.10348/ 

BLK  4660 

DATA  OCNXT2 

/ 

BLK  4670 

1 

1.22259, 

1.14627, 

1.11842, 

1.00000, 

.94766, 

.87538, 

.80418, 

BLK  4680 

2 

.72930, 

.68582 , 

.62165, 

.49962, 

.67949, 

.66468, 

.59253, 

BLK  4690 

3 

.49551, 

.44671 , 

.37886, 

.35924, 

.43367, 

.37019, 

.30842, 

BLK  4700 

4 

.26437, 

.25228, 

.24905, 

.23975, 

.22766, 

.17804, 

.15316, 

BLK  4710 

5 

.15373, 

.16791, 

.22361, 

.28348, 

.28677, 

.29082, 

.29038, 

BLK  4720 

6 

.27810, 

.23867, 

.20209, 

.16430, 

.14943, 

BLK  4730 

1 

1.09133, 

1.06601, 

1.05620, 

1.00000, 

.97506, 

.94791, 

.94203, 

BLK  4740 

2 

.93671 , 

.92867, 

.90411, 

.80253, 

.89222, 

.94462, 

.92146, 

BLK  4750 

3 

.85797, 

.82595, 

.76747, 

.68646, 

.78209, 

.75266, 

.68658, 

BLK  4760 

4 

.62722, 

.60228, 

.56335, 

.53728, 

.51861, 

.43449, 

.37196, 

BLK  4770 
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5 

.35899, 

.37316, 

.46854, 

.58234, 

.58690, 

.60348, 

.60563, 

BLK  4780 

6 

.60000, 

.55392 , 

.50367, 

.43576, 

.35949/ 

BLK  4790 

DATA  0CNBS1 

/ 

BLK  4800 

1 

.30987, 

.04354, 

.02880, 

.01797, 

.01468, 

.01766, 

.01582, 

BLK  4810 

2 

.00816, 

.01146, 

.01677, 

.03310, 

.03380, 

.00715, 

.00443, 

BLK  4820 

3 

.00500, 

.00601, 

.00753, 

.01595, 

.02943, 

.00994, 

.01367, 

BLK  4830 

4 

.01671, 

.02538, 

.03481 , 

.03405, 

.03601 , 

.01608, 

.01310, 

BLK  4840 

5 

.01152, 

.01082, 

.01070, 

.01563, 

.02063, 

.03171, 

.03810, 

BLK  4850 

6 

.03741, 

.03804, 

.03759, 

.04209, 

.07892. 

BLK  4860 

1 

.23367, 

.03127, 

.02070, 

.01297, 

.01063, 

.01285, 

.01190, 

BLK  4870 

2 

.00937, 

.00911, 

.01576, 

.05576, 

.23487, 

.03949, 

.00905, 

BLK  4880 

3 

.02057, 

.01816, 

.01665, 

.08025, 

.08044, 

.03677, 

.03139, 

BLK  4890 

4 

.03190, 

.03766, 

.04532, 

.04544, 

.04715, 

.03405, 

.03614, 

BLK  4900 

5 

.04329, 

.05424, 

.07823, 

.09728, 

.10057, 

.10247, 

.10222, 

BLK  4910 

6 

.09551, 

.08241 , 

.07158, 

.06506, 

.09203/ 

BLK  4920 

DATA  OCNBS2 

/ 

BLK  4930 

1 

.13025, 

.01557, 

.01013, 

.00646, 

.00532, 

.00665, 

.00722, 

BLK  4940 

2 

.01335, 

.00728, 

.01810, 

.09835, 

.37329, 

.09703, 

.01968, 

BLK  4950 

3 

.05114, 

.04342, 

.03709, 

.17456, 

.16468, 

.08785, 

.06880, 

BLK  4960 

4 

.06589, 

.06791, 

.07247, 

.07329, 

.07449, 

.07025, 

.07962, 

BLK  4970 

5 

.09899, 

.12481, 

.17867, 

.22019, 

.22228, 

.22051, 

.21595, 

BLK  4980 

6 

.20335, 

.17278, 

.14677, 

.12171, 

.12430, 

BLK  4990 

1 

.03506, 

.00323, 

.00215, 

.00139, 

.00114, 

.00171, 

.00532, 

BLK  5000 

2 

.03082, 

.01101, 

.03741, 

.20101, 

.47608, 

.21165, 

.05234, 

BLK  5010 

3 

.12886, 

.11215, 

.09684, 

.32810, 

.31778, 

.20513, 

.16658, 

BLK  5020 

4 

.15956, 

.15842, 

.15905, 

.15968, 

.16051, 

.16506, 

.18323, 

BLK  5030 

5 

.21709, 

.25652, 

.33222, 

.39639, 

.39854, 

.40297, 

.40025, 

BLK  5040 

6 

.39025, 

.35468, 

.32006, 

.27715, 

.25348/ 

BLK  5050 

DATA  TRorri 

/ 

BLK  5060 

1 

2.21222, 

1.82753, 

1.67032, 

1.00000, 

.72424, 

.35272, 

.15234, 

BLK  '5070 

2 

.05165, 

.03861 , 

.02994, 

.04671 , 

.02462, 

.01538, 

.01146, 

BLK  5080 

3 

.01032, 

.00816, 

.00861 , 

.00994 , 

.01057, 

.01139, 

.01747, 

BLK  5090 

4 

.01494, 

.02418, 

.03165, 

.03386, 

.04247, 

.01601, 

.01215, 

BLK  5100 

5 

.00937, 

.00861 , 

.00823, 

.01139, 

.01924, 

.01234, 

.01348, 

BLK  5110 

6 

.01114, 

.01297, 

.01266, 

.01418, 

.01487, 

BLK  5120 

1 

2.21519, 

1.82266, 

1.66557, 

1.00000, 

.72525, 

.35481, 

.15449, 

BLK  5130 

2 

.05475, 

.04044, 

.03082, 

.04620, 

.05272, 

.01867, 

.01266, 

BLK  5140 

3 

.01127, 

.00886, 

.00886 , 

.01449, 

.01399, 

.01228, 

.01728, 

BLK  5150 

4 

.01475, 

.02285, 

.03215, 

.03494, 

.04285, 

.01652, 

.01304, 

BLK  5160 

5 

.01101, 

.01120, 

.01297, 

.01753, 

.02468, 

.01741, 

.01766, 

BLK  5170 

6 

.01513, 

.01557, 

.01456, 

.01532, 

.01582/ 

BLK  5180 

DATA  TROXT2 

/ 

BLK  5190 

1 

2.19082, 

1.79462, 

1.64456, 

1.00000, 

.73297, 

.36443, 

.16278, 

BLK  5200 

2 

.06468, 

.04658, 

.03399, 

.04538, 

.11892, 

.02835, 

.01646, 

BLK  5210 

3 

.01386, 

.01076, 

.00968, 

.02551, 

.02222, 

.01468, 

.01690, 

BLK  5220 

4 

.01437, 

.01994, 

.03127, 

.03513, 

.04076, 

.01722, 

.01513, 

BLK  5230 

5 

.01519, 

.01791, 

.02538, 

.03272, 

.03816, 

.03038, 

.02886, 

BLK  5240 

6 

.02551, 

.02228, 

.01937, 

.01804, 

.01791, 

BLK  5250 

1 

1.75696, 

1.54829, 

1.45962, 

1.00000, 

.77816, 

.43139, 

.21778, 

BLK  5260 

2 

.11329, 

.08101, 

.05506, 

.04943, 

.25291 , 

.06816, 

.03703, 

BLK  5270 

3 

.02601, 

.01968, 

.01468, 

.04962, 

.04247, 

.02234, 

.01797, 

BLK  5280 

4 

.01532, 

.01633, 

.02259, 

.02487, 

.02595, 

.01728, 

.01892, 

BLK  5290 

5 

.02399, 

.03247, 

.05285, 

.06462, 

.06608, 

.05930, 

.05525, 

BLK  5300 
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6 

.04861, 

.03753, 

.02968, 

.02348, 

.02165/ 

BLK  5310 

DATA  TR0BS1 

/ 

r 

BLK  5320 

1 

.69671, 

.09905, 

.06563, 

.04101, 

.03354 , 

.03627, 

.02810, 

BLK  5330 

2 

.00873, 

.00918, 

.00930, 

.03215, 

.01285, 

.00513, 

.00316, 

BLK  5340 

3 

.00557, 

.00494 , 

.00646 , 

.00867, 

.00937 , 

.01025, 

.01646, 

BLK  5350 

4 

.01461, 

.02418, 

.02886 , 

.03070, 

.04032, 

.01494, 

.01139, 

BLK  5360 

5 

.00873, 

.00816, 

.00797 , 

.01133, 

.01911, 

.01215, 

.01329, 

BLK  5370 

6 

.01101, 

.01291, 

.01266, 

.01418, 

.01487, 

BLK  5380 

1 

.65000, 

.08791, 

.05816, 

.03652, 

.02994, 

.03278, 

.02557, 

BLK  5390 

2 

.00810, 

.00842, 

.00867, 

.03139, 

.03949, 

.00646, 

.00316, 

BLK  5400 

3 

.00595, 

.00519, 

.00646, 

.01304, 

.01247, 

.01095, 

.01620, 

BLK  5410 

4 

.01449, 

.02278, 

.02930, 

.03184, 

.04063, 

.01544, 

.01234, 

BLK  5420 

5 

.01044, 

.01076, 

.01272, 

.01741, 

.02462, 

.01722, 

.01747, 

BLK  5430 

6 

.01506, 

.01551, 

.01456, 

.01532, 

.01582/ 

BLK  5440 

DATA  TROBS2 

/ 

BLK  5450 

1 

.52804, 

.06367, 

.04158, 

.02633, 

.02184, 

.02443, 

.01937, 

BLK  5460 

2 

.00658, 

.00646, 

.00709, 

.02949, 

.10013, 

.00968, 

.00310, 

BLK  5470 

3 

.00677, 

.00582, 

.00646, 

.02361, 

.01994, 

.01266, 

.01544, 

BLK  5480 

4 

.01386, 

.01968, 

.02848, 

.03203, 

.03854, 

.01620, 

.01449, 

BLK  5490 

5 

.01462, 

.01747, 

.02513, 

.03253, 

.03797, 

.03019, 

.02861 , 

BLK  5500 

6 

.02538, 

.02215, 

.01930, 

.01797, 

.01791, 

BLK  5510 

1 

.19829, 

.01842, 

.01215, 

.00791, 

.00665, 

.00778, 

.00652, 

BLK  5520 

2 

.00361, 

.00253, 

.00399, 

.02570, 

.20690, 

.01715, 

.00316, 

BLK  5530 

3 

.00873, 

.00728, 

.00658, 

.04481 , 

.03525, 

.01646, 

.01405, 

BLK  5540 

4 

.01310, 

.01468, 

.01956, 

.02184, 

.02367, 

.01608, 

.01816, 

BLK  5550 

5 

.02342, 

.03203, 

.05234, 

.06399, 

.06538, 

.05867, 

.05456, 

BLK  5560 

6 

.04810, 

.03715, 

.02949, 

.02335, 

.02158/ 

BLK  5570 

DATA  FG1EXT 

/ 

BLK  5580 

1 

.98519, 

.99158, 

.99089, 

1.00000, 

1.00576, 

1.01747, 

1.03177, 

BLK  5590 

2 

1.04146, 

1.04696, 

1.05323, 

1.05886, 

1.04899, 

1.06823, 

1.07804, 

BLK  5600 

3 

1.09272, 

1.10367, 

1.11684, 

1.10430, 

1.11367, 

1.12899, 

1.14987, 

BLK  5610 

4 

1.17209, 

1.18278, 

1.20133, 

1.21266, 

1.21949, 

1.22677, 

1.15589, 

BLK  5620 

5 

1.05684, 

.98291 , 

1.01120, 

1.10911, 

1.11462, 

1.14671, 

1.16247, 

BLK  5630 

6 

1.18544, 

1.21582, 

1.24614, 

1.26842, 

1.20500/ 

BLK  5640 

DATA  FG1ABS 

/ 

BLK  5650 

1 

.00013, 

0.00000, 

0.00000, 

0.00000, 

0.00000, 

.00095, 

.01513, 

BLK  5660 

2 

.10861, 

.03892, 

.13272, 

.47133, 

.49696, 

.45785, 

.17918, 

BLK  5670 

3 

.37373, 

.34601, 

.31867, 

.55190, 

.55025, 

.49987, 

.46342, 

BLK  5680 

4 

.45943, 

.45918, 

.46089, 

.46241, 

.46386, 

.47196, 

.48905, 

BLK  5690 

5 

.51468, 

.53101, 

.55266, 

.58665, 

.58899, 

.60367 , 

.61158, 

BLK  5700 

6 

.62335, 

.64120, 

.65627, 

.66278, 

.66392/ 

BLK  5710 

DATA  FG2EXT 

/ 

BLK  5720 

1 

.94791, 

.96215, 

.97063, 

1.00000, 

1.00937, 

1.05177, 

1.12519, 

BLK  5730 

2 

1.29570, 

1.39203, 

1.41120, 

1.04715, 

1.10816, 

1.43285, 

1.45272, 

BLK  5740 

3 

1.18709, 

1.04367, 

.82354, 

.71747, 

.92405, 

.79342, 

.60266, 

BLK  5750 

4 

.47677, 

.43171, 

.36734, 

.33259, 

.31184, 

.24139, 

.21601, 

BLK  5760 

5 

.24006, 

.28816, 

.42671, 

.56861, 

.57266, 

.58089, 

.57165, 

BLK  5770 

6 

.54247, 

.43981 , 

.34475, 

.24905, 

.19291/ 

BLK  5780 

DATA  FG2ABS 

/ 

BLK  5790 

1 

0.00000, 

0.00000, 

0.00000, 

0.00000, 

0.00000, 

.00013, 

.00247, 

BLK  5800 

2 

.01987, 

.00620, 

.02323, 

.17209, 

.57930, 

.19810, 

.03475, 

BLK  5810 

3 

.09639, 

.08000, 

.06582, 

.34589, 

.32703, 

.17025, 

.12633, 

BLK  5820 

4 

.11816, 

.11627, 

.11519, 

.11538, 

.11601, 

.12329, 

.14468, 

BLK  5830 
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5  .18633, 

.24057, 

.35411, 

.44886, 

.45095, 

.45215, 

.44278, 

BLK  5840 

6  .41778, 

.34430, 

.27823, 

.21063, 

.17867/ 

BLR  5850 

DATA  BSTEXT 

/ 

BLR  5860 

1  1.48671,  1 

.55462, 

1.51506, 

1.00000, 

.70633, 

.28867, 

.09994 , 

BLR  5870 

2  .04184, 

.02728, 

.01848, 

.01335, 

.06513, 

.08930, 

.06532, 

BLR  5880 

3  .04766, 

.04278, 

.05810, 

.05367 , 

.04392, 

.03342, 

.04456, 

BLR  5890 

4  .11867, 

.14709, 

.12734, 

.09291 , 

.08778, 

.05019, 

.04070, 

BLR  5900 

5  .05734, 

.03576, 

.01975, 

.01892, 

.01956, 

.03665, 

.04152, 

BLR  5910 

6  .01715, 

.01620, 

.00835, 

.00633, 

.00589/ 

BLR  5920 

DATA  BSTABS 

/ 

BLR  5930 

1  0.00000,  0.00000, 

0.00000, 

0.00000, 

0.00000, 

0.00000, 

.00019, 

BLR  5940 

2  .00127, 

.00158, 

.00291 , 

.00405, 

.05880, 

.08297 , 

.06019, 

BLR  5950 

3  .04519, 

.04133, 

.05703 , 

.05266, 

.04304, 

.03285, 

.04437, 

BLR  5960 

4  .11816, 

.14633, 

.12639, 

.09215, 

.08722, 

.04968, 

.04044, 

BLR  5970 

5  .05709, 

.03551, 

.01962, 

.01892, 

.01949, 

.03665, 

.04146, 

BLR  5980 

6  .01709, 

.01620, 

.00835, 

.00633, 

.00589/ 

BLR  5990 

DATA  AVOEXT 

/ 

BLR  6000 

1  1.14880,  1 

.19171, 

1.18013, 

1.00000, 

.84873, 

.53019, 

.27968, 

BLK  6010 

2  .14551, 

.11070, 

.08633, 

.07184, 

.06076, 

.04506, 

.03399, 

BLK  6020 

3  .02095, 

.01538, 

.01266, 

.01019, 

.00994, 

.01044, 

.01361 , 

BLK  6030 

4.  .01791, 

.02278, 

.02918, 

.03108, 

.03234, 

.03456, 

.03184, 

BLK  6040 

5  .02772, 

.02475, 

.01715, 

.01563, 

.01665, 

.01646, 

.01734, 

BLK  6050 

6  .01772, 

.01076, 

.01051 , 

.01133, 

.01329/ 

BLK  6060 

DATA  ATOABS 

/ 

BLK  6070 

1  .44816, 

.11259, 

.08500, 

.05272, 

.04082, 

.02449, 

.01487, 

BLK  6080 

2  .01019, 

.00867, 

.00842, 

.00842 , 

.00949, 

.00741, 

.00487 , 

BLK  6090 

3  .00316, 

.00335, 

.00399, 

.00449, 

.00525, 

.00665, 

.01114, 

BLK  6100 

4  .01652, 

.02177, 

.02437, 

.02506, 

.02658, 

.03006 , 

.02861, 

BLK  6110 

5  .02513, 

.02285, 

.01620, 

.01532, 

.01633, 

.01620, 

.01709, 

BLK  6120 

6  .01741, 

.01057, 

.01038, 

.01127, 

.01329/ 

BLK  6130 

DATA  FVOEXT 

/ 

BLK  6140 

1  .88715, 

.92532, 

.94013, 

1.00000, 

1.03013, 

1.05975, 

1.01171, 

BLK  6150 

2  .88677, 

.82538, 

.76361, 

.71563, 

.67424, 

.60589, 

.55057, 

BLK  6160 

3  .45222, 

.37646, 

.32316, 

.25519, 

.22728, 

.20525, 

.17810, 

BLK  6170 

4  .14481, 

.14152, 

.37639, 

.44551, 

.44405, 

.42222, 

.36462, 

BLK  6180 

5  .32551, 

.27519, 

.16728, 

.10627, 

.10861, 

.10886, 

.11665, 

BLK  6190 

6  .13127, 

.10108, 

.08557, 

.06411, 

.05741/ 

BLK  6200 

DATA  FVOABS 

/ 

BLK  6210 

1  .41582, 

.22892 , 

.19108, 

.14468, 

.12475, 

.09158, 

.06601, 

BLK  6220 

2  .04943, 

.04367, 

.04342, 

.04399, 

.05076, 

.04133, 

.02829, 

BLK  6230 

3  .01924, 

.01981, 

.02297, 

.02475, 

.02778, 

.03411, 

.05335, 

BLK  6240 

4  .07133, 

.08816, 

.15342, 

.18506, 

.19354, 

.20791 , 

.18449, 

BLK  6250 

5  .16101, 

.13759, 

.08456, 

.06886, 

.07278, 

.07367, 

.07956, 

BLK  6260 

6  .08785, 

.06032, 

.05747, 

.05133, 

.05323/ 

BLK  6270 

DATA  DMEEXT 

/ 

BLK  6280 

1  1.05019,  1 

.05880, 

1.05259, 

1.00000, 

.94949, 

.81456, 

.66051, 

BLK  6290 

2  .54380, 

.49133, 

.44677, 

.41671, 

.38063, 

.34778, 

.32804, 

BLK  6300 

3  .29722, 

.27506, 

.25082, 

.22620, 

.21652, 

.20253, 

.17266, 

BLK  6310 

4  .14905, 

.14234, 

.14082, 

.15057, 

.16399, 

.23608, 

.24481 , 

BLK  6320 

5  .27791, 

.25076, 

.15272, 

.09601, 

.09456, 

.14576, 

.12373, 

BLK  6330 

6  .18348, 

.12190, 

.12924, 

.08538, 

.04108/ 

BLK  6340 

DATA  DKEABS 

/ 

BLK  6350 

1  .00063, 

.00152, 

.00184, 

.00506, 

.00791 , 

.01829, 

.03728, 

BLK  6360 

D- 64 


ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 


2 

.06158, 

.07538, 

.08943, 

.10051, 

.11614, 

.13310, 

.14348, 

BLK  6370 

3 

.14633, 

.13728, 

.12462, 

.11184, 

.10709, 

.10076, 

.09006, 

BLK  6380 

4 

.08734, 

.09000, 

.10304, 

.11905, 

.13437, 

.19551, 

.20095, 

BLK  6390 

5 

.22494, 

.18418, 

.09285, 

.06665, 

.06823, 

.12329, 

.10551, 

BLK  6400 

6 

.16184, 

.09835, 

.10582, 

.06759, 

.03247/ 

BLK  6410 

BLK  6420 

ALTITUDE  REGIONS  FOR  AEROSOL  EXTINCTION  COEFFICIENTS  BLR  6430 

BLK  6440 
BLR  6450 

0-2KM  BLK  6460 

RUREXT-RURAL  EXTINCTION  RURABS-RURAL  ABSORPTION  BLK  6470 

URBEXT -URBAN  EXTINCTION  URBABS-URBAN  ABSORPTION  BLK  6480 

OCNEXT -MARI TIME  EXTINCTION  OCNABS-MARITTME  ABSORPTION  BLK  6490 
TROEXT-TROPSPHER  EXTINCTION  TROABS-TROPOSPHER  ABSORPTION  BLK  6500 
FG1EXT-F0G1  .2 KM  VIS  EXTINCTION  FG1ABS-F0G1  ABSORPTION  BLK  6510 
FG2EXT-F0G2  .5KM  VIS  EXTINCTION  FG2ABS-F0G2  ABSORPTION  BLK  6520 
>2-9KM  BLK  6530 

TROEXT-TROPOSPHER  EXTINCTION  TROABS-TROPOSPHER  ABSORPTIONBLK  6540 


CCC 

>9 

-30KM 

BLK  6550 

CCC 

BSTE XT-BACKGROUND  STRATOSPHERIC  EXTINCTION 

BLK  6560 

CCC 

BSTABS-BACKCROUND  STRATOSPHERIC  ABSORPTION 

BLK  6570 

CCC 

AVOEXT-AGED  VOLCANIC  EXTINCTION 

BLK  6580 

CCC 

AVOABS-AGED  VOLCANIC  ABSORPTION 

BLK  6590 

CCC 

FVOEXT-FRESH  VOLCANIC  EXTINCTION 

BLK  6600 

CCC 

FVOABS-FRESH  VOLCANIC  ABSORPTION 

BLK  6610 

CCC 

>30-1 OOKM 

BLK  6620 

CCC 

DMEEXT-METEORIC  DUST  EXTINCTION 

BLK  6630 

ccc 

DMEABS-METEORIC  DUST  ABSORPTION 

BLK  6640 

c 

SUBROUTINE  TRFN 

BLK  6650 

c 

LOWTRAN  TRANSMITTANCE  FUNCTIONS 

BLK  6660 

DATA  TR 

/ 

BLK  6670 

1  .9990, 

.9980,  .9960, 

.9940, 

.9920, 

.9900, 

.9800, 

.9700, 

BLK  6680 

2  .9600, 

.9500,  .9400, 

.9300, 

.9200, 

.9100, 

.9000, 

.8800, 

BLK  6690 

3  .8600, 

.8400,  .8200, 

.8000, 

.7800, 

.7600, 

.7400, 

.7200, 

BLK  6700 

4  .7000, 

.6800,  .6600, 

.6400, 

.6200, 

.6000, 

.5800, 

.5600, 

BLK  6710 

5  .5400, 

.5200,  .5000, 

.4800, 

.4600, 

.4400, 

.4200, 

.4000, 

BLK  6720 

6  .3800, 

.3600,  .3400, 

.3200, 

.3000, 

.2800, 

.2600, 

.2400, 

BLK  6730 

7  .2200, 

.2000,  .1800, 

.1600, 

.1400, 

.1200, 

.1000, 

.0800, 

BLK  6740 

8  .0600, 

.0400,  .0300, 

.0200, 

.0150, 

.0100, 

.0080, 

.0060, 

BLK  6750 

9  .0040, 

.0020,  .0010/ 

BLK  6760 

DATA  FW 

/ 

BLK  6770 

1-2.3468, 

-2.0362,-1 .6990,-1 .4815,-1 .3279,- 

-1.2007, 

-.7825, 

-.5229, 

BLK  6780 

2  -.3468, 

-.1938,  -.0655, 

.0414, 

.1553, 

.2430, 

.3324, 

.4838, 

BLK  6790 

3  .6126, 

.7243,  .8261, 

.9191, 

1.0000, 

1.0792, 

1.1461, 

1.2122, 

BLK  6800 

4  1.2672, 

1.3284,  1.3892, 

1.4409, 

1.4955, 

1.5441, 

1.5966, 

1.6435, 

BLK  6810 

5  1.6857, 

1.7340,  1.7782, 

1.6261, 

1.8692, 

1.9191, 

1.9638, 

2.0086, 

BLK  6820 

6  2.0607, 

2.1038,  2.1461, 

2.1875, 

2.2304, 

2.2788, 

2.3263, 

2.3717, 

BLK  6830 

7  2.4183, 

2.4698,  2.5159, 

2.5740, 

2.6284, 

2.6902, 

2.7559, 

2.8261, 

BLK  6840 

8  2.9031, 

3.0000,  3.0607, 

3.1461, 

3.2041, 

3.2718, 

3.3054, 

3.3444, 

BLK  6850 

9  3.3979, 

3.4914,  3.5682/ 

BLK  6860 

DATA  FO 

/ 

BLK  6870 

1-1.6778, 

-1.3980,-1.1192, 

-.9508, 

-.8239, 

-.7258, 

-.4318, 

-.2366, 

BLK  6880 

2  -.1074, 

0.0000,  .0969, 

.1761, 

.2304, 

.3010, 

.3522, 

.4624, 

BLK  6890 

D-65 


nannnnn  non 


C 

C 

C 

C 


3 

.5563, 

.6435, 

.7243, 

.7924, 

.8573, 

.9191, 

.9731, 

1.0253, 

BLK  6900 

4 

1.0719, 

1.1173, 

1.1614, 

1.2095, 

1.2480, 

1.2900, 

1.3263, 

1.3617, 

BLK  6910 

5 

1.3979, 

1.4393, 

1.4698, 

1.4983, 

1.5314, 

1.5682, 

1.6021, 

1.6335, 

BLR  6920 

6 

1.6721, 

1.7076, 

1.7482, 

1.7924, 

1.8325, 

1.8865, 

1.9395, 

2.0000, 

BLR  6930 

7 

2.0607, 

2.1206, 

2.1903, 

2.2552, 

2.3385, 

2.4313, 

2.5185, 

2.6435, 

BLK  6940 

8 

2.7853, 

2.9777, 

3.1072, 

3.2553, 

3.3617, 

3.4771, 

3.5563, 

3.6233, 

BLR  6950 

9 

3.7076, 

3.8325, 

3.9345/ 

BLR  6960 

SUBROUTINE  C4DTA 
N2  CONTINUUM 


C4  LOCATION  1  V  -  2080  CM-1 

C4  LOCATION  133  V  -  2740  CM-1 

DATA  C4A 

/ 

1  2.93E-04, 

3.86E-04, 

5.09E-04, 

6.56E-04, 

8.85E-04, 

1.06E-03, 

2  1.31E-03, 

1.73E-03, 

2.27E-03, 

2.73E-03, 

3.36E-03, 

3.95E-03, 

3  5.46E-03 , 

7.19E-03, 

9.00E-03, 

1.13E-02, 

1.36E-02, 

1.66E-02, 

4  1.96E-02, 

2.16E-02, 

2.36E-02, 

2.63E-02, 

2.90E-02, 

3.15E-02, 

5  3.40E-02, 

3.66E-02, 

3.92E-02, 

4.26E-C2, 

4.60E-02, 

4.95E-02, 

6  5.30E-02, 

5.65E-02, 

6.00E-02, 

6.30E-02, 

6.60E-02, 

6.89F-02, 

7  7.18E-02, 

7.39E-02, 

7.60E-02, 

7.84E-02, 

8.08E-02, 

8.39E-02, 

8  8.70E-02, 

9.13E-02, 

9.56E-02, 

1.08E-01, 

1.20E-01, 

1.36E-01, 

9  1.52E-01, 

1.60E-01, 

1.69E-01, 

1 .60E-01 , 

1.51E-01, 

1.37E-01, 

$  1.23E-01, 

1.19E-01, 

1.16E-01, 

1.14E-01, 

1.12E-01 , 

1.12E-01, 

$  1.11E-01, 

1.11E-01, 

1.12E-01 , 

1.14E-01, 

1.13E-01 , 

1.12E-01, 

$  1.09E-01, 

1.07E-01, 

1.02E-01, 

9.90E-02, 

9.50E-02, 

9.00E-02, 

$  8.65E-02, 

8.20E-02, 

7.65E-02, 

7.05E-02, 

6.50E-02, 

6.10E-02, 

$  5.50E-02, 

4.95E-02, 

4.50E-02, 

4.00E-02, 

3.75E-02, 

3.50E-02, 

$  3.10E-02, 

2.65E-02, 

2.50E-02, 

2.20E-02, 

1.95E-02, 

1.75E-02, 

$  1.60E-02, 

1.40E-02, 

1.20E-02, 

1.05E-02, 

9.50E-03, 

9.00E-03, 

$  8.00E-03, 

7.00E-03, 

6.50E-03, 

6.00E-03, 

5.50E-03, 

4.75E-03, 

$  4.00E-03, 

3.75E-03, 

3.50E-03, 

3.00E-03, 

2.50E-03, 

2.25E-03, 

$  2.00E-03, 

1.85E-03, 

1.70E-03, 

1.60E-03, 

1.50E-03, 

1.50E-03/ 

DATA  C4B 

/ 

1  1.54E-03, 

1.50E-03, 

1.47E-03, 

1.34E-03, 

1.25E-03, 

1.06E-03, 

2  9.06E-04, 

7.53E-04, 

6.41E-04, 

5.09E-04, 

4.04E-04, 

3.36E-04, 

3  2.86E-04, 

2.32E-04, 

1.94E-04, 

1.57E-04, 

1.31E-04, 

1.02E-04, 

4  8.07E-05/ 

4M  H20 

CONTINUUM 

C5  LOCATION  1  V  < 

•  2350  i 

CM-1 

C5  LOCATION  15  V  « 

■  2420  i 

CM-1 

DATA  C5 

/ 

0.00, 

.20, 


.19, 

.24, 


.15, 

.28, 


.12,  .10, 
.33,  0.00/ 


.09,  .10,  .12,  .15,  .17, 


OZONE  U.V.  +  VISIBLE 


13000 

24200 

27500 

50000 

/ 


CM-1 

CM-1 

CM-1 

CM-1 


C8  LOCATION  1  V  - 
C8  LOCATION  56  V  - 
DV  -  200  CM-1 
C8  LOCATION  57  V  - 
C8  LOCATION  102  V  - 
DV  -  500  CM-1 
DATA  C8 

1  4.50E-03,  8.00E-03,  1.07E-02,  1.10E-02,  1.27E-02, 

2  2.00E-02,  2.45E-02,  3.07E-02,  3.84E-02,  4.78E-02, 

3  6.54E-02,  7.62E-02,  9.15E-02,  1.00E-01,  1.09E-01, 


1.71E-02, 

5.67E-02, 

1.20E-01, 


BLR  6970 
BLK  6980 
BLR  6990 
BLR  7000 
BLR  7010 
BLR  7020 
BLR  7030 
BLR  7040 
BLR  7050 
BLR  7060 
BLR  7070 
BLR  7080 
BLK  7090 
BLR  7100 
BLR  7110 
BLR  7120 
BLR  7130 
BLR  7140 
BLR  7150 
BLR  7160 
BLR  7170 
BLR  7180 
BLR  7190 
BLR  7200 
BLR  7210 
BLR  7220 
BLR  7230 
BLR  7240 
BLK  7250 
BLR  7260 
BLK  7270 
BLK  7280 
BLK  7290 
BLK  7300 
BLK  7310 
BLK  7320 
BLK  7330 
BLK  7340 
BLK  7350 
BLK  7360 
BLK  7370 
BLK  7380 
BLK  7390 
BLK  7400 
BLK  7410 
BLK  7420 


D— 66 


4  1.28E-01 ,  1.12E-01,  1.11E-01,  1.16E-01, 

5  1.03E-01,  9.24E-02,  8.28E-02,  7.57E-02, 
5 • S jE-02 ,  4.77E-02,  4.06E-02,  3.87E-02, 

7  2.0SE-02,  1.80E-02,  1.91E-02,  1.66E-02, 

8  6.10E-03,  8.50E-03,  6.10E-03,  3.70E-03, 

9  2.55E-03,  1.98E-03,  1.40E-03,  8.25E-04, 

$  0.  ,0.  ,  5.65E-04,  2.04E-03, 

$  4.98E-02,  1.18E-01,  2.46E-01,  5.18E-01, 
$  3.79E+00,  6.65E+00,  1.24E401,  2.20E4O1, 
$  8.50E+01 ,  1.26E+02,  1.68E+02,  2.06E-KJ2, 
$  2.91E+02,  3.02E+02,  3.03E-KJ2,  2.94E-W2, 
$  2.26E+02,  1.96E402,  1.68E-KJ2,  1.44E+02, 
$  7.65E401,  6.04E+01,  4.62E+01,  3.46E-KJ1, 
$  1.57E+01,  1.20E+01 ,  1 .00E+01 ,  8.80E+00, 

END 


1.19E-01, 

1.13E-01, 

BLR  7430 

7.07E-02, 

6.58E-02, 

BLR  7440 

3.82E-02, 

2.94E-02, 

BLR  7450 

1.17E-02, 

7.70E-03, 

BLR  7460 

3.20E-03, 

3.10E-03, 

BLR  7470 

2.50E-04, 

o.  * 

BLR  7480 

7.35E-03, 

2.03E-02, 

BLR  7490 

1.02E+00, 

1.95E+00, 

BLR  7500 

3.67E+01 , 

5.95E+01 , 

BLR  7510 

2.42E+02, 

2.71E+02, 

BLR  7520 

2.77E+02, 

2.54E+02, 

BLR  7530 

1.17E+02, 

9.75E401, 

BLR  7540 

2.52E+01, 

2.00E+01 , 

BLR  7550 

8.30E+00, 

8.60E+00/ 

BLR  7560 

BLR  7570 

r 


c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


SUBROUTINE  C1DTA  (CILL.L) 


WATER  VAPOR 
Cl  LOCATION  1  V 
Cl  LOCATION  1770  V 
Cl  LOCATION  1771  V 
Cl  LOCATION  2355  V 
Cl  LOCATION  2356  V 
Cl  LOCATION  2580  V 
COMMON  /Cl /Cl (2580) 
DIMENSION  Cl (2580) 


350  CM-1 
9195  CM-1 
9875  CM-1 
12795  CM-1 
12350  CM-1 
14520  CM-1 


DIMENSION  C1A(190) ,C1B(190) ,C1C(190) ,C1D(190) ,C1E(190) ,C1F(190) , 

1  C1G(190) ,C1H(190) ,C1I(190) ,C1J(190) ,C1R(190) ,C1L(190) ,C1M( 190) , 

2  ClN(llO) 


C1D 

C1D 

C1D 

C1D 

C1D 

C1D 

C1D 

C1D 

C1D 

C1D 

C1D 

C1D 

C1D 


:  10 
20 
30 
40 
50 
60 
70 
80 
:90 
:91 
:92 
:93 
:94 


EQUIVALENCE  (Cl, CIA) ,(C1(191 ) ,C1B) ,(C1 (381 ) ,C1C) ,(C1(571 ) ,C1D) ,  C1D  : 95 

1  (Cl (761 ) ,C1E) ,(C1(951 ) ,C1F) ,( Cl (1141 ) ,C1G) ,(C1(1331 ) ,C1H) ,  C1D  :96 

2  (Cl (1521 ) ,C1I),(C1(1711) ,C1J) ,(C1(1901 ) ,C1K) ,(C1 (2091 ) ,C1L)  ,  C1D  :97 

3  (Cl(2281 ) ,C1M) , (Cl (2471 ) ,C1N)  C1D  :98 


DATA  Cl (I), I-  1, 

190) 

Cl  D 

:  100 

DATA  CIA/ 

C1D 

:  101 

1 

3.93, 

3.72, 

3.54, 

3.42, 

3.37, 

3.37, 

3.36, 

3 

.33, 

3 

.25, 

3 

.13, 

C1D 

no 

2 

3.02, 

2.96, 

2.97, 

3.00, 

3.08, 

3.12, 

3.08, 

3 

.03, 

3 

.00, 

3 

.01, 

C1D 

120 

3 

3.03, 

3.07, 

3.05, 

3.01, 

2.94, 

2.83, 

2.71, 

2 

.62, 

2 

.58, 

2 

.57, 

C1D 

130 

4 

2.62, 

2.67, 

2.72, 

2.71, 

2.60, 

2.46, 

2.35, 

2 

.26, 

2 

.22, 

2 

.23, 

C1D 

140 

5 

2.19, 

2.17, 

2.17, 

2.20, 

2.26, 

2.34, 

2.42, 

2 

.39, 

2 

.20, 

2 

.01, 

C1D 

150 

6 

1.92, 

1.83, 

1.78, 

1.79, 

1.81, 

1.84, 

1.83, 

1 

.80, 

1 

.71, 

1 

.51, 

C1D 

160 

7 

1.39, 

1.30, 

1.25, 

1.18, 

1.19, 

1.18, 

1.21, 

1 

.33, 

1 

.47, 

1 

.53, 

C1D 

170 

8 

1.54, 

1.36, 

1.12, 

.89, 

.69, 

.49, 

.60, 

.71, 

.79, 

.99, 

C1D 

180 

9 

.86, 

.73, 

.53, 

.43, 

.51, 

.52, 

.67, 

.73, 

.80, 

.83, 

C1D 

190 

$ 

.80, 

.63, 

•47, 

.32, 

-.08, 

-.21, 

-.29, 

- 

.21, 

- 

.01, 

.08, 

C1D 

200 

$ 

.16, 

.09, 

-.03, 

-.21, 

-.37, 

-.35, 

-.30, 

- 

•31, 

- 

.37, 

- 

.42, 

C1D 

210 

$ 

-.48, 

-.42, 

-.40, 

-.39, 

-.43, 

-.77, 

-.83, 

- 

.88, 

- 

.79, 

- 

.60, 

C1D 

220 

$ 

-.50, 

-.39, 

-.38, 

-.37, 

-.40, 

-.51, 

- 

.67, 

- 

.82, 

- 

.58, 

C1D 

230 

$ 

-.40, 

-.32, 

-.21, 

-.09, 

-.18, 

-.16, 

-.19, 

- 

.28, 

- 

.33, 

- 

.35, 

C1D 

240 

$ 

-.28, 

-.22, 

-.10, 

-.05, 

-.11, 

-.13, 

-.27, 

- 

.27, 

- 

.18, 

- 

.06, 

C1D 

250 

$ 

.11, 

.23, 

.26, 

.19, 

.11, 

0,00, 

-.09, 

.02, 

.08, 

.12, 

C1D 

260 

$ 

.22, 

.28, 

.39, 

.54, 

.68, 

.75, 

.79, 

.79, 

.71, 

.69, 

C1D 

270 

$ 

.76, 

.88, 

1.01, 

1.16, 

1.18, 

1.14, 

1.05, 

1 

.02, 

1 

.11. 

1 

.23, 

C1D 

280 

$ 

1.41, 

1.75, 

1.83, 

1.99, 

2.05, 

2.03, 

2.00, 

1 

.96, 

1 

.90, 

1 

.86/ 

C1D 

290 

DATA(C1(I),I-  191, 

380)/ 

C1D 

:300 

DATA  C1B/ 

C1D 

:301 

1 

1.91, 

2.08, 

2.24, 

2.41, 

2.63, 

2.68, 

2.67, 

2 

.73, 

2 

.79, 

2 

.81, 

C1D 

310 

2 

2.91, 

2.93, 

3.02, 

3.16, 

3.23, 

3.30, 

3.34, 

3 

•43, 

3, 

.57, 

3, 

.59, 

C1D 

320 

3 

3.59, 

3.58, 

3.57, 

3.61, 

3.71, 

3.71, 

3.69, 

3 

.64, 

3, 

.60, 

3, 

.68, 

C1D 

330 

4 

3.80, 

3.95, 

4.05, 

4.05, 

4.02, 

3.99, 

3.96, 

4 

.01, 

4, 

•13, 

4 

.22, 

C1D 

340 

5 

4.35, 

4.49, 

4.58, 

4.62, 

4.63, 

4.61, 

4.57, 

4 

.56, 

4 

.56, 

4 

.53, 

C1D 

350 

6 

4.49, 

4.46, 

4.40, 

4.28, 

4.14, 

3.92, 

3.63, 

3 

.35, 

3, 

.16, 

3, 

.10, 

C1D 

360 

7 

3.24, 

3.47, 

3.66, 

3.80, 

3.93, 

4.00, 

4.04, 

4 

.15, 

4, 

.23, 

4 

.31, 

C1D 

370 

8 

4.35, 

4.31, 

4.23, 

4.20, 

4.24, 

4.28, 

4.35, 

4 

.42, 

4 

.42, 

4 

.44, 

C1D 

380 

9 

4.46, 

4.40, 

4.30, 

4.22, 

4.13, 

4.07, 

4.12, 

4 

.19, 

4, 

.22, 

4, 

.23, 

C1D 

390 

$ 

4.16, 

4.04, 

3.99, 

3.94, 

3.93, 

3.91, 

3.86, 

3 

.83, 

3, 

.80, 

3, 

.78, 

C1D 

400 

$ 

3.70, 

3.54, 

3.40, 

3.30, 

3.31, 

3.42, 

3.52, 

3 

.52, 

3 

.49, 

3, 

.41, 

C1D 

410 

$ 

3.21, 

3.14, 

3.10, 

3.08, 

3.11, 

2.98, 

2.88, 

2 

.78, 

2 

.74, 

2, 

.76, 

C1D 

420 

$ 

2.72, 

2.76, 

2.82, 

2.85, 

2.86, 

2.75, 

2.64, 

2 

.60, 

2, 

.61, 

2, 

.64, 

C1D 

430 

D-68 


$  2.56, 

2.49, 

2.37, 

2.25, 

2.14, 

2.08, 

2.11, 

2.20, 

2.31, 

2.28, 

C1D 

440 

$  2.15, 

2.06, 

1.98, 

2.03, 

2.05, 

1.96, 

1.84, 

1.72, 

1.64, 

1.59, 

C1D 

450 

$  1.57, 

1.57, 

1.60, 

1.63, 

1.51, 

1.38, 

1.07, 

.91, 

.87, 

.92, 

C1D 

460 

$  1.04, 

1.01, 

.92, 

.84, 

.92, 

.97, 

1.01, 

1.06, 

1.10, 

1.06, 

C1D 

470 

$1.01, 

.91, 

.79, 

.55, 

.47, 

.41, 

.39, 

.38, 

.34, 

.33, 

C1D 

480 

$  .36, 

.43, 

.48, 

.45, 

.38, 

.27, 

•21, 

.22, 

.29, 

.37/ 

C1D 

490 

DATA(C1(I),I-  381, 

570)/ 

C1D 

:500 

DATA  C1C/ 

C1D 

:  501 

1  .38, 

.37, 

.29, 

.19, 

.13, 

.11, 

.03, 

-.05, 

-.12, 

-.24, 

C1D 

510 

2  -.31, 

-.39, 

-.43, 

-.50, 

-.59, 

-.68, 

-.73, 

-.80, 

-.92,-1.06, 

C1D 

520 

3-1.14,- 

-1.22,- 

-1.27,- 

-1.28,- 

-1.33,-1.32,- 

-1.43,- 

-1.51,- 

-1.63,-1.74, 

C1D 

530 

4-1.82,-1.98,- 

-2.09,- 

-2.21,- 

-2.21,- 

-2.24,- 

-2.27,-2.36,-2.51,- 

-2.65, 

C1D 

540 

5-2.70,- 

-2.63,- 

-2.57,- 

-2.56,-2.59,- 

-2.67,- 

-2.69,- 

-2.67,- 

-2.68,-2.62, 

C1D 

550 

6-2.52,- 

-2.42,* 

-2.29,- 

-2.14,- 

-2.00,-1.87,- 

-1.71,- 

-1.51,-1.39,- 

-1.27, 

C1D 

560 

7-1.12,-1.01, 

-.89, 

-.75, 

-.68, 

-.57, 

-.47, 

-.42, 

-.32, 

-.27, 

C1D 

570 

8  -.26, 

-.19, 

-.13, 

-.11, 

-.01, 

.05, 

.08, 

.17, 

.25, 

.31, 

C1D 

580 

9  .41, 

.43, 

.44, 

.43, 

.36, 

.35, 

•31, 

.25, 

.25, 

.22, 

C1D 

590 

$  .21, 

.33, 

.49, 

.65, 

.76, 

.71, 

.51, 

.30, 

.13, 

.10, 

C1D 

600 

$  .17, 

.24, 

.31, 

.38, 

.45, 

.51, 

.56, 

.60, 

.63, 

.62, 

C1D 

610 

$  .63, 

.64, 

.66, 

.69, 

.76, 

.75, 

.74, 

.70, 

.62, 

.53, 

C1D 

620 

$  .46, 

.39, 

.38, 

.37, 

.38, 

.42, 

.47, 

.50, 

.58, 

.69, 

C1D 

630 

$  .67, 

.62, 

.64, 

.68, 

.76, 

.90, 

1.11, 

1.13, 

1.10, 

.97, 

C1D 

640 

$  .98, 

1.17, 

1.38, 

1.52, 

1.70, 

1.76, 

1.84, 

1.92, 

1.90, 

1.87, 

C1D 

650 

$  1.91, 

2.02, 

2.13, 

2.10, 

2.18, 

2.22, 

2.25, 

2.03, 

2.01, 

1.77, 

C1D 

660 

$  1.93, 

2.19, 

2.28, 

2.14, 

2.15, 

2.22, 

2.01, 

2.14, 

2.26, 

2.36, 

C1D 

670 

$  2.51, 

2.66, 

2.73, 

2.68, 

2.69, 

2.64, 

2.22, 

1.95, 

1.61, 

1.11, 

C1D 

680 

$  .88, 

.83, 

.89, 

1.20, 

1.62, 

1.82, 

1.99, 

2.01, 

2.14, 

2.16/ 

C1D 

690 

DATA(C1(I) ,!■  571, 

760)/ 

C1D 

:700 

DATA  C1D/ 

C1D 

:701 

1  2.21, 

2.30, 

2.33, 

2.42, 

2.50, 

2.51, 

2.49, 

2.46, 

2.42, 

2.37, 

C1D 

710 

2  2.37, 

2.33, 

2.31, 

2.43, 

2.56, 

2.61, 

2.63, 

2.60, 

2.50, 

2.38, 

C1D 

720 

3  2.41, 

2.34, 

2.31, 

2.32, 

2.40, 

2.27, 

2.32, 

2.22, 

2.09, 

2.08, 

C1D 

730 

4  2.17, 

2.41, 

2.77, 

2.68, 

2.49, 

2.29, 

2.23, 

2.42, 

2.61, 

2.58, 

C1D 

740 

5  2.49, 

2.40, 

2.39, 

2.51, 

2.60, 

2.68, 

2.68, 

2.70, 

2.82, 

2.83, 

C1D 

750 

6  2.82, 

2.81, 

2.84, 

2.86, 

2.91, 

2.96, 

3.03, 

3.08, 

3.21, 

3.30, 

C1D 

760 

7  3.40, 

3.52, 

3.49, 

3.46, 

3.51, 

3.54, 

3.56, 

3.55, 

3.57, 

3.61, 

C1D 

770 

8  3.71, 

3.80, 

3.92, 

3.99, 

4.06, 

4.02, 

4.06, 

4.12, 

4.28, 

4.30, 

C1D 

780 

9  4.22, 

4.32, 

4.42, 

4.53, 

4.64, 

4.55, 

4.40, 

4.28, 

4.32, 

4.38, 

C1D 

790 

$  4.37, 

4.24, 

4.13, 

4.14, 

4.20, 

4.25, 

4.32, 

4.35, 

4.31, 

4.27, 

C1D 

800 

$  4.25, 

4.27, 

4.31, 

4.36, 

4.41, 

4.52, 

4.59, 

4.71, 

4.79, 

4.81, 

C1D 

810 

$  4.73, 

4.61, 

4.42, 

4.28, 

4.08, 

4.00, 

3.88, 

3.86, 

3.92, 

3.98, 

C1D 

820 

$  4.12, 

4.18, 

4.31, 

4.37, 

4.42, 

4.50, 

4.53, 

4.58, 

4.59, 

4.61, 

C1D 

830 

$  4.61, 

4.59, 

4.53, 

4.49, 

4.44, 

4.41, 

4.40, 

4.34, 

4.30, 

4.26, 

C1D 

840 

$  4.09, 

3.98, 

3.87, 

3.78, 

3.77, 

3.79, 

3.75, 

3.72, 

3.62, 

3.56, 

C1D 

850 

$  3.51, 

3.48, 

3.32, 

3.18, 

3.07, 

2.96, 

2.87, 

2.80, 

2.68, 

2.58, 

C1D 

860 

$  2.59, 

2.51, 

2.59, 

2.57, 

2.50, 

2.42, 

2.32, 

2.20, 

2.12, 

2.00, 

C1D 

870 

$  1.92, 

1.79, 

1.63, 

1.60, 

1.69, 

1.78, 

2.04, 

2.00, 

1.81, 

1.70, 

C1D 

880 

$  1.63, 

1.61, 

1.60, 

1.49, 

1.14, 

1.35, 

1.64, 

1.69, 

1.70, 

1.59/ 

C1D 

890 

DATA(C1(I),I-  761, 

950)/ 

C1D 

:900 

DATA  C1E/ 

C1D 

:901 

1  1.45, 

1.29, 

1.19, 

1.08, 

1.02, 

1.04, 

1.10, 

1.16, 

1.20, 

1.23, 

C1D 

910 

2  1.22, 

1.08, 

1.08, 

1.06, 

.89, 

.93, 

.73, 

.58, 

.54, 

.77, 

C1D 

920 

3  .81, 

.74, 

.71, 

.57, 

.49, 

.43, 

.38, 

.12, 

.10, 

.20, 

C1D 

930 

D-69 


4 

•41 1 

.37, 

.31, 

.11, 

-.13, 

-.21, 

-.32, 

-.36, 

-.39, 

-.33, 

5 

-.39, 

-.45, 

-.50, 

-.56, 

-.62, 

-.68, 

-.77, 

-.84, 

-.91,- 

-1.00, 

6- 

-1.11,- 

-1.19,- 

-1.28, 

-1.31,-1.39,- 

-1.43,- 

-1.48,- 

-1.52,- 

-1.57,- 

-1.60, 

7-1.61,- 

-1.60,- 

-1.58,- 

-1.51,- 

-1.42,-1.32,- 

-1.26,- 

-1.16,- 

-1.00, 

-.83, 

8 

-.71, 

-.61, 

-.52, 

-.43, 

-.36, 

-.30, 

-.21, 

-.19, 

-.17, 

-.15, 

9 

-.13. 

-.17, 

-.19, 

-•12, 

-.06, 

-.01, 

0.00, 

-.11, 

-.23, 

-.32, 

$ 

-.44, 

-.51, 

-.48, 

-.47, 

-.42, 

-.40, 

-.40, 

-.39, 

-.37, 

-.35, 

S 

-.48, 

-.75,- 

-1.13, 

-1.58,* 

-1.80,- 

-1.66,- 

-1.52,- 

-1.35,- 

-1.19,- 

-1.02, 

$ 

-.88, 

-.66, 

-.65, 

-.63, 

-.62, 

-.66, 

-.73, 

-.79, 

-.88, 

-.84, 

$ 

-.70, 

-.59, 

-.43, 

-.39, 

-.50, 

-.61, 

-.74, 

-.79, 

-.76, 

-.69, 

$ 

-.62, 

-.59, 

-.52, 

-.48, 

-.48, 

-.42, 

-.39, 

-.38, 

-.33, 

-.29, 

$ 

-.26, 

-.23, 

-.22, 

-.28, 

-.37, 

-.50, 

-.60, 

-.60, 

-.51, 

-.46, 

$ 

-.42, 

-.43, 

-.45, 

-.35, 

-.24, 

-.14, 

-.08, 

-.08, 

0.00, 

•11, 

$ 

.32, 

.43, 

.42, 

.32, 

.23, 

.22, 

.28, 

.45, 

.55, 

.62, 

$ 

.65, 

.71, 

.75, 

.80, 

.83, 

.85, 

.87, 

.90, 

.93, 

1.00, 

$ 

1.04, 

1.15, 

1.22, 

1.32, 

1.31, 

1.32, 

1.33, 

1.48, 

1.78, 

1.87/ 

DATA(C1(1),I-  951, 

1140)/ 

DATA  C1F/ 

1 

2.01, 

1.92, 

1.86, 

1.89, 

1.92, 

1.98, 

2.03, 

2.39, 

2.31, 

2.48, 

2 

2.70, 

2.71, 

2.76, 

2.78, 

2.70, 

2.77, 

3.08, 

2.94, 

3.05, 

2.94, 

3 

3.23, 

3.20, 

3.19, 

3.32, 

3.11, 

3.41, 

3.31, 

3.36, 

3.46, 

3.36, 

4 

3.39, 

3.50, 

3.41, 

3.22, 

3.19, 

2.98, 

2.78, 

2.98, 

3.02, 

2.82, 

5 

2.98, 

2.86, 

2.92, 

2.92, 

3.05, 

3.22, 

3.60, 

3.78, 

3.81, 

3.96, 

6 

3.76, 

3.62, 

3.34, 

3.08, 

3.31, 

3.16, 

3.37, 

3.41, 

3.30, 

3.33, 

7 

3.33, 

3.51, 

3.48, 

3.43, 

3.52, 

3.31, 

3.40, 

3.58, 

3.61, 

3.49, 

8 

3.46, 

3.42, 

3.19, 

3.18, 

3.30, 

3.00, 

2.99, 

3.21, 

3.11, 

3.14, 

9 

3.10, 

2.72, 

2.81, 

2.95, 

2.69, 

2.73, 

2.72, 

2.47, 

2.51, 

2.60, 

$ 

2.42, 

2.37, 

2.73, 

1.91, 

1.87, 

1.81, 

1.78, 

1.53, 

1.51, 

1.62, 

$ 

1.59, 

1.50, 

1.42, 

1.32, 

1.22, 

1.12, 

1.08, 

1.02, 

.97, 

•92, 

$ 

.90, 

.87, 

.84, 

.82, 

.79, 

.78, 

.76, 

.75, 

•72, 

.71, 

$ 

.71, 

.70, 

.69, 

.67, 

.61, 

.59, 

.52, 

.48, 

.41, 

•39, 

$ 

.38, 

.33, 

.32, 

.30, 

.30, 

.30, 

.29, 

.28, 

.27, 

.26, 

$ 

.25, 

.23, 

•22, 

.21, 

.20, 

.18, 

.14, 

.13, 

.06, 

.01, 

$ 

-.03, 

-.07, 

-.11, 

-.16, 

-.21, 

-.24, 

-.29, 

-.32, 

-.38, 

-.41, 

$ 

-.45, 

-.50, 

-.54, 

-.61, 

-.69, 

-.76, 

-.84, 

-.90, 

-.97,- 

-1.01, 

$- 

-1.10, 

-1.13,- 

-1.19, 

-1.22, 

-1.28,- 

-1.30,- 

-1.33,- 

-1.36,- 

-1.39,- 

-1.43, 

$• 

-1.48, 

-1.50,- 

-1.52, 

-1.57,-1.61,- 

-1.66,-1.70,-1.72,- 

-1.78,- 

-1.81/ 

DATA( Cl (I), 1*1141, 

1330)/ 

DATA  C1G/ 

1- 

-1.89, 

-1.92,- 

-2.00, 

-2.08,-2.16,' 

-2.24,- 

-2.31,' 

-2.40,- 

-2.48,- 

-2.54, 

2- 

-2.61, 

-2.71,- 

-2.83, 

-2.95, 

-3.10,- 

-5.00,-5.00,- 

-5.00,- 

-5.00,- 

-5.00, 

3- 

-5.00, 

-5.00,-5.00, 

-5.00, 

-5.00,-5.00,- 

-5.00,- 

-5.00,- 

-5.00,- 

-5.00, 

4- 

-5.00, 

-5.00,- 

-5.00, 

-5.00,' 

-5.00,-5.00,- 

-5.00,' 

-5.00,- 

-5.00,- 

-5.00, 

5- 

-5.00, 

-5.00,- 

-5.00, 

-5.00,-5.00,-5.00,-5.00,- 

-5.00,- 

-5.00,- 

-5.00, 

6- 

-5.00, 

-5.00,- 

-5.00, 

-5.00,' 

-5.00,-5.00,' 

-5.00,- 

-5.00,- 

-5.00,- 

-5.00, 

7- 

-5.00, 

-5.00,- 

-5.00, 

-5.00, 

-5.00,-5.00,' 

-5.00,-5.00,- 

-5.00,' 

-5.00, 

8* 

-5.00, 

-5.00,-5.00, 

-5.00, 

-5.00,-5.00,- 

-5.00,-5.00,- 

-5.00,- 

-5.00, 

9- 

-5.00, 

-5.00,- 

-5.00, 

-5.00,-5.00,- 

-5.00,- 

-5.00,- 

-5.00,- 

-5.00,-5.00, 

$' 

-3.78, 

-3.33,-3.01, 

-2.82, 

-2.68,-2.49,- 

-2.30,- 

-2.13,- 

-2.00,- 

-1.81, 

$■ 

-1.60, 

-1.41,-1.13, 

-.90, 

-.79, 

-.63, 

-.48, 

-.36, 

-.28, 

-.16, 

$ 

-.06, 

.08, 

.20, 

.28, 

.41, 

.54, 

.69, 

.80, 

.92, 

1.04, 

$ 

1.19, 

1.19, 

1.01, 

.98, 

1.02, 

1.19, 

1.29, 

1.30, 

1.29, 

1.38, 

$ 

1.19, 

1.39, 

1.42, 

1.43, 

1.70, 

1.62, 

1.54, 

1.41, 

1.53, 

1.86, 

C1D  940 
C1D  950 
C1D  960 
C1D  970 
C1D  980 
C1D  990 
C1D  1000 
C1D  1010 
C1D  1020 
C1D  1030 
C1D  1040 
C1D  1050 
C1D  1060 
C1D  1070 
C1D  1080 
C1D  1090 
C1D: 1100 
C1D: 1101 
C1D  1110 
C1D  1120 
C1D  1130 
C1D  1140 
C1D  1150 
C1D  1160 
C1D  1170 
C1D  1180 
C1D  1190 
C1D  1200 
C1D  1210 
C1D  1220 
C1D  1230 
C1D  1240 
C1D  1250 
C1D  1260 
C1D  1270 
C1D  1280 
CIO  1290 
C1D: 1300 
C1D: 1301 
C1D  1310 
C1D  1320 
C1D  1330 
C1D  1340 
C1D  1350 
C1D  1360 
C1D  1370 
C1D  1380 
C1D  1390 
C1D  1400 
C1D  1410 
C1D  1420 
C1D  1430 
C1D  1440 


D-70 


$  1.96, 

1.97, 

2.02,  2.01, 

1.94, 

1.94, 

1.83, 

2.03, 

2.21, 

2.42, 

C1D 

1450 

$  2.30, 

2.16, 

2.02,  2.02, 

2.02, 

2.13, 

1.90, 

1.71, 

2.01, 

1.56, 

C1D 

1460 

$  1.56, 

1.51, 

1.30,  1.63, 

1.64, 

1.67, 

1.70, 

2.22, 

2.39, 

2.38, 

C1D 

1470 

$  2.30, 

1.93, 

2.39,  2.49, 

2.52, 

2.57, 

2.21, 

2.18, 

2.40, 

2.41, 

C1D 

1480 

$  2.45, 

2.51, 

2.23,  2.49, 

2.30, 

2.61, 

2.72, 

2.52, 

2.63, 

2.56/ 

C1D 

1490 

DATA(C1(I),I> 

-1331,1520)/ 

C1D: 

1500 

DATA  C1H/ 

C1D: 

1501 

1  2.51, 

2.70, 

2.62,  2.62, 

2.80, 

2.74, 

2.79, 

2.74, 

2.70, 

2.88, 

C1D 

1510 

2  2.81, 

2.72, 

2.76,  2.84, 

2.92, 

2.98, 

2.88, 

2.88, 

3.02, 

3.08, 

C1D 

1520 

3  3.26, 

3.03, 

3.14,  3.28, 

3.03, 

3.11, 

3.15, 

3.30, 

3.31, 

3.22, 

C1D 

1530 

4  3.00, 

3.06, 

3.34,  3.40, 

3.37, 

3.32, 

3.08, 

3.09, 

3.09, 

3.01, 

C1D 

1540 

5  3.07, 

3.07, 

3.31,  3.21, 

3.31, 

3.67, 

3.58, 

3.79, 

3.70, 

3.49, 

C1D 

1550 

6  3.39, 

3.11, 

3.13,  3.01, 

3.10, 

3.01, 

3.18, 

3.32, 

3.43, 

3.35, 

C1D 

1560 

7  3.40, 

3.39, 

3.39,  3.51, 

3.54, 

3.42, 

3.50, 

3.67, 

3.59, 

3.63, 

C1D 

1570 

8  3.66, 

3.48, 

3.39,  3.29, 

3.31, 

3.41, 

3.23, 

3.32, 

3.12, 

2.91, 

C1D 

1580 

9  2.91, 

2.75, 

2.78,  2.72, 

2.62, 

2.58, 

2.32, 

2.22, 

2.00, 

1.97, 

C1D 

1590 

$  1.68, 

1.62, 

1.64,  1.53, 

1.56, 

1.51, 

1.52, 

1.48, 

1.42, 

1.42, 

C1D 

1600 

$  1.40, 

1.41, 

1.43,  1.56, 

1.52, 

1.51, 

1.52, 

1.39, 

1.39, 

1.30, 

C1D 

1610 

$  1.09, 

1.16, 

1.21,  1.20, 

1.22, 

1.20, 

1.18, 

1.20, 

1.19, 

1.17, 

C1D 

1620 

$  1.10, 

1.10, 

1.09,  1.10, 

1.11, 

1.04, 

.98, 

.90, 

.86, 

.90, 

C1D 

1630 

$  .90, 

.90, 

.86,  .71, 

.79, 

.70, 

.71, 

.67, 

.62, 

.53, 

C1D 

1640 

$ 

.31, 

.20,  .01, 

-.08, 

-.17, 

-.26, 

-.35, 

-.44, 

-.53, 

C1D 

1650 

$  -.63, 

-.73, 

-.83,  -.93, 

-1.04,- 

-1.14,- 

-1.24,- 

-1.34, 

-1.44,- 

-1.54, 

C1D 

1660 

$-1.64, 

-1.74, 

-1.84,-1.94,- 

-2.04,-2.14,- 

-2.24,- 

-2.34, 

-2.44, 

-2.54, 

C1D 

1670 

$-2.64, 

-2.74,-2.84,-2.94,-3.04,- 

-3.14,-3.24,- 

-3.34,- 

-3.44, 

-3.54, 

C1D 

1680 

$-3.64,- 

-3.74,-3.84,-3.94,- 

-4.04,-5.00,- 

-5.00,-5.00,- 

-5.00,- 

-5.00/ 

C1D 

1690 

DATA(C1(1)  ,1' 

■1521,1710)/ 

C1D: 

1700 

DATA  C1I/ 

C1D: 

1701 

1-5.00, 

-5.00,- 

-5.00,-5.00,-5.00,-5.00,-5.00,- 

-5.00, 

-5.00,' 

-5.00, 

C1D 

1710 

2-5.00, 

-5.00,-5.00,-5.00,-5.00,- 

-5.00,-5.00,- 

-5.00,- 

-5.00, 

-5.00, 

C1D 

1720 

3-5.00, 

-5.00,- 

-5.00,-5.00,-5.00,-5.00,-5.00, 

-5.00, 

-5.00,- 

-5.00, 

C1D 

1730 

4- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C1D  1740 

5- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C1D  1750 

6- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C1D  1760 

7- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C1D  1770 

8- 4.15,-4.06,-3.97,-3.88,-3.79,-3.70,-3.61,-3.52,-3.43,-3.34,  C1D  1780 

9- 3.25 ,-3 . 16 ,-3 .07 ,-2 . 98 ,-2.89 ,-2.80 ,-2 .71,-2.62,-2.53,-2.44,  C1D  1790 

$-2. 35,-^. 26, -2. 18,-2. 09, -2. 00, -1.91 ,-1.82,-1.73,-1.64,-1.55,  C1D  1800 


$-1.46,- 

-1.37,- 

-1.28, 

-1.19,- 

-1.10,- 

-1.01, 

-.92, 

-.83, 

-.74, 

-.65, 

C1D 

1810 

$  -.56, 

-.47, 

-.38, 

-.29, 

-.20, 

-.14, 

-.09, 

-.02, 

.03, 

.10, 

C1D 

1820 

$  .17, 

.22, 

.30, 

.35, 

.41, 

.45, 

.42, 

.40, 

.43, 

.46, 

C1D 

1830 

$  .50, 

.59, 

.71, 

.84, 

.93, 

1.01, 

1.06, 

1.07, 

1.02, 

1.01, 

C1D 

1840 

$  1.12, 

1.23, 

1.24, 

1.28, 

1.34, 

1.43, 

1.52, 

1.56, 

1.59, 

1.56, 

C1D 

1850 

$  1.51, 

1.61, 

1.50, 

1.70, 

1.82, 

1.92, 

1.94, 

1.89, 

1.81, 

1.45, 

C1D 

1860 

$  1.30, 

1.28, 

1.43, 

1.50, 

1.49, 

1.55, 

1.48, 

1.32, 

1.39, 

1.53, 

C1D 

1870 

$  1.82, 

2.23, 

2.61, 

2.51, 

2.20, 

1.86, 

1.61, 

1.19, 

1.32, 

1.52, 

C1D 

1880 

$  1.70, 

1.90, 

2.01, 

1.92, 

1.91, 

2.12, 

2.10, 

2.01, 

2.18, 

1.99/ 

C1D 

1890 

DATA(C1(I),1-1711, 

1900)/ 

C1D: 

1900 

DATA  C1J/ 

C1D: 

1901 

1  2.11, 

2.28, 

2.21, 

2.13, 

2.00, 

1.91, 

1.92, 

1.97, 

1.88, 

1.91, 

C1D 

1910 

2  1.91, 

1.92, 

1.93, 

1.74, 

1.61, 

1.58, 

1.27, 

1.20, 

1.18, 

1.11, 

C1D 

1920 

3  .99, 

.86, 

.71, 

.60, 

.44, 

.31, 

.19, 

.03, 

-.07, 

-.21, 

C1D 

1930 

4  -.35, 

-.49, 

-.64, 

-.79, 

-.94,- 

-1.11,- 

-1.24,- 

-1.41,- 

-1.57,-1.73, 

C1D 

1940 

D-71 


5-1.91,- 

-2.09,- 

-2.27,-2.45,- 

-2.63,-2.81,-2.99,-3.18,- 

■3.37,- 

■3.56, 

6-3.75,- 

-3.94,- 

-4.13,- 

-4.31,- 

-4.49,- 

-4.66,-4.83,- 

-4.99,-5.14,- 

■5.28, 

7-5.00,-5.00,- 

-5.00,- 

-5.00,- 

-5.00,- 

-5.00,- 

-5.00,- 

-5.00,- 

-4.68,- 

■4.26, 

8-3.89,-3.57,- 

-3.32,- 

-3.11,-2.91,- 

-2.89,-2.79,-2.74,-2.63,- 

■2.47, 

9-2.29,- 

-2.20,- 

-2.17,- 

-2.23,-2.27,- 

-2.32,- 

-2.12,- 

-2.08,-2.07,- 

-2.07, 

$-2.07,- 

-1.98,- 

-1.77,- 

-1 .70,-1 .63,-1 .60,-1 .59 ,-l .43,- 

-1.21,- 

-1.15, 

$-1.09,-1.13,- 

-1.29,- 

-1.19, 

-.98, 

-.93, 

-.87, 

-.91, 

-.88, 

-.71, 

$  -.62, 

-.59, 

-.58, 

-.63, 

-.58, 

-.39, 

-.22, 

-.14, 

-.06, 

-.01, 

$  -.oi. 

-.08, 

-.20, 

-.16, 

-.02, 

.18, 

.32, 

.42, 

.37, 

.23, 

$  .12, 

.15, 

.28, 

.43, 

.59, 

.58, 

.53, 

.44, 

.39, 

.38, 

$  .35, 

.23, 

.26, 

.19, 

.08, 

.10, 

.18, 

.27, 

.38, 

•43, 

$  .32, 

.37, 

.58, 

.64, 

.87, 

.98, 

1.00, 

1.02, 

1.13, 

1.08, 

$  1.08, 

1.16, 

1.16, 

1.30, 

1.41, 

1.40, 

1.32, 

1.32, 

1.37, 

1.42, 

$  1.50, 

1.42, 

1.38, 

1.36, 

1.38, 

1.49, 

1.63, 

1.62, 

1.62, 

1.70, 

$  1.68, 

1.60, 

1.56, 

1.56, 

1.63, 

1.64, 

1.56, 

1.49, 

1.49, 

1.52/ 

data( ci (i ) , i*i 901 , : 

2090)/ 

DATA  C1K/ 

1  1.58, 

1.62, 

1.62, 

1.61, 

1.61, 

1.62, 

1.63, 

1.71, 

1.72, 

1.70, 

2  1.70, 

1.67, 

1.62, 

1.66, 

1.70, 

1.67, 

1.56, 

1.49, 

1.42, 

1.38, 

3  1.26, 

1.20, 

1.13, 

1.14, 

1.19, 

1.29, 

1.50, 

1.72, 

1.86, 

1.78, 

4  1.82, 

1.88, 

1.82, 

1.89, 

1.99, 

2.00, 

2.14, 

2.04, 

2.02, 

2.02, 

5  1.98, 

1.90, 

1.83, 

1.81, 

1.72, 

1.69, 

1.59, 

1.50, 

1.36, 

1.20, 

6  .98, 

.63, 

.43, 

.29, 

.16, 

.05, 

.02, 

.03, 

.03, 

.01, 

7  -.08, 

-.18, 

-.20, 

-.11, 

-.06, 

-.03, 

-.14, 

-.21, 

-.08, 

-.06, 

8  .10, 

.18, 

.11. 

.32, 

•42, 

.44, 

.38, 

.28, 

•42, 

.43, 

9  .41, 

.33, 

.32, 

.41, 

.50, 

.46, 

•31, 

.18, 

.08, 

.20, 

$  .21, 

.34, 

.36, 

.28, 

.35, 

.39, 

.42, 

.38, 

.32, 

.30, 

$  .16, 

-.01, 

-.23, 

-.41, 

-.52, 

-.48, 

-.58, 

-.61, 

-.48, 

-.23, 

$  -.03, 

.21, 

.36, 

.39, 

.47, 

.44, 

.40, 

.51, 

.59, 

.53, 

$  .69, 

.57, 

.48, 

.52, 

.62, 

.59, 

.55, 

.50, 

.32, 

.26, 

$  .11, 

-.08, 

-.10, 

-.16, 

-.43, 

-.62, 

-.88, 

-1.09, 

-1.16, 

-1.31, 

$-1.45, 

-1.49,-1.78, 

-1.91, 

-2.01,-1.97,-1.97, 

-1.97, 

-1.97, 

-2.26, 

$-2.20, 

-2.01,' 

-1.99, 

-2.00, 

-2.04, 

-2.37, 

-2.49, 

-2.44, 

-2.36, 

-2.32, 

$-2.19, 

-2.10, 

-2.25, 

-2,16, 

-2.36, 

-2.44, 

-2.40, 

-2.49, 

-2.48, 

-2.43, 

$-2.40, 

-2.36,- 

-2.40, 

-2.49, 

-2.59, 

-2.68, 

-2.89, 

-3.28, 

-3.51, 

-3.74, 

$-3.97,-4.20,-4.43,-4,66,-4.89,-5.00,-5.00,-5.00,-5.00,-5.00/ 
DATA( Cl (I), 1-2091, 2280)/ 

DATA  C1L/ 

1- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

2- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

3- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

4- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

5- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

6- 5.00,-5.00,-5.00,-5.00,-5.00,-3.71,-3.56,-3.40,-3.21,-3.06, 

7- 2.90,-2.74,-2.60,-2.46,-2.32,-2.17,-2.03,-1.87,-1.79,-1.74, 


8-1 .83,-1 .82,-1 .71 ,-l .59,-1 .49,-1.46,-! .46 ,- 

1.49,- 

-1.49,-1.25 

9-1.24,-1.08, 

-.90,-1.06, 

-.91, 

-.91,-1.01, 

-.99, 

-.87, 

-.92 

$ 

-.79, 

-.42, 

-.54, 

-.38, 

-.42, 

-.48, 

-.34, 

-.27, 

-.17, 

-.28 

$ 

-.38, 

-.22, 

-.30, 

-.08, 

-.01, 

-.20, 

.06, 

.10, 

.06, 

.14 

$ 

-.12, 

-.02, 

-.02, 

-.13, 

-.11, 

-.10, 

-.06, 

-.05, 

-.04, 

-.10 

$ 

-.04, 

-.06, 

-.21, 

-.38, 

-.61, 

-.40, 

-.31, 

-.42, 

-.58, 

-.57 

$ 

-.54, 

-.24, 

.11, 

.51, 

.81, 

.79, 

.62, 

.26, 

-.31, 

-.67 

$ 

-.80, 

-.88, 

-.50, 

-.39, 

-.10, 

.09, 

.06, 

.08, 

.16, 

.21 

C1D  1950 
C1D  1960 
C1D  1970 
C1D  1980 
C1D  1990 
C1D  2000 
C1D  2010 
C1D  2020 
C1D  2030 
C1D  2040 
C1D  2050 
C1D  2060 
C1D  2070 
C1D  2080 
C1D  2090 
C1D:2100 
C1D:2101 
C1D  2110 
C1D  2120 
C1D  2130 
C1D  2140 
C1D  2150 
C1D  2160 
C1D  2170 
C1D  2180 
C1D  2190 
C1D  2200 
C1D  2210 
C1D  2220 
C1D  2230 
C1D  2240 
C1D  2250 
C1D  2260 
C1D  2270 
C1D  2280 
C1D  2290 
C1D: 2300 
C1D:2301 
C1D  2310 
C1D  2320 
C1D  2330 
C1D  2340 
C1D  2350 
C1D  2360 
C1D  2370 
C1D  2380 
C1D  2390 
C1D  2400 
C1D  2410 
C1D  2420 
C1D  2430 
C1D  2440 
C1D  2450 


D-72 


$ 

.13, 

.32, 

.35, 

.51, 

.60, 

.51, 

.51, 

.40, 

.40, 

.43, 

$ 

.42, 

.33, 

.43, 

.34, 

.22, 

.13, 

-.11, 

-.31, 

-.31, 

-.41, 

$ 

-.41, 

-.39, 

-.53, 

-.69, 

-.84, 

-.88,- 

-1.01,- 

-1.10,-1.19,-1.29, 

$- 

■1.45,-1.49,-1.67,-1.67,- 

-1 .51 ,-l .66 ,-l .60,-1 .69,-1.83,- 

-1.51/ 

DATA( Cl (I >,1-2281,2470)/ 

DATA  C1M/ 

1- 1 .42,-1 .40,-1 .24,-1 .38,-1 .31,-1 .30,-1 .30,-1 .28,-1 .39,-1 .33, 

2- 1 .40,-1 .35 ,-l .37 ,-l .39,-1 .41 ,-l .49,-1 .48 ,-l .56 ,-l .47,-1 .46, 

3- 1 .41 ,-l .42,-1 .48,-1 .41 ,-1.31 ,-l .15,-1 .13,-1 .20,-1 .41 ,-1.88, 

4- 2.08,-2.08,-2.22,-2.35,-2.35,-1.98,-1.92,-1.78,-1.57,-1.69, 

5- 1 .70,-1 .70,-1 .66 ,-l .84,-1 .50,-1 .56,-1 .42,-1 .29,-1 .38,-1 .28, 

6- 1.48,-1.58,-1.44,-1.53,-1.48,-1.48,-1.58,-1.58,-1.69,-1.79, 

7- 2.00,-2.16,-1.99,-2.23,-2.04,-2.04,-2.39,-2.74,-3.09,-3.44, 

8- 3.79,-4.14,-4.49,-4.84,-5.19,-2.46,-2.26,-1.99,-2.01,-2.14, 

9- 2.31,-2.15,-2.01,-1.99,-2.14,-2.41,-2.12,-1.99,-1.84,-1.79, 


DATA( Cl (I), 1-2471, 2580)/ 
DATA  C1N/ 


1-1, 

.11, 

-1, 

■37, 

-1. 

■  52, 

-1, 

.54, -1.94, -2, 

.06 

2-2. 

.00, 

-2. 

.08, 

-2, 

.23, 

-2, 

.31 ,-2.31, -2, 

.53 

3-2. 

.34, 

-2, 

.34, 

-1. 

.91, 

-1, 

.82,-1 .69,- 

-1, 

.56 

4-1, 

.76, 

-1 

.54, 

-1, 

.98, 

-1 

•  80  j“l  *68 

-1, 

.69 

5-1 

.36, 

-1. 

.44, 

-1 

.48, 

-1 

.40,- 

-1.48,- 

-1, 

.36 

6-1 

.23, 

-1. 

.18, 

-1 

.18, 

-1 

.34,- 

-1. 36,-1, 

.23 

7-1 

.28, 

-1 

•27, 

-1 

.37, 

-1 

.32,- 

-1.32,- 

-1, 

.22 

8-2 

.42, 

-2 

.58, 

-2 

.58, 

-2 

.80,< 

-2.58,' 

-2, 

.43 

9-1 

.23, 

-1 

.10, 

-1 

.23, 

-1 

.10, 

-.83, 

-, 

.80 

$  - 

.97, 

- 

.91, 

.92, 

-1 

.13,- 

-1. 24,-1, 

.50 

$-3 

.91, 

-4. 

.20, 

-4, 

.49, 

-4 

.78,- 

-5.07,' 

-5, 

.07 

-2.06,- 

-2.31,- 

-1.84,- 

-1.56," 

-1.45," 

-1.23,- 

-1.28,- 

-1.88," 

-.80, 

-1.89,- 

-5.07," 


■2.14,- 

■2.31,- 

•1.91,- 

1.60,- 

1.49,- 

1.37, - 

1.38, - 
1.60,- 
-.80, 
•2.18,- 
■5.07," 


1.96,- 

2.31,- 

1.75,- 

1.71,- 

1.85,- 

1.30,- 

1.69,- 

1.26,- 

-.98, 

•2.32,- 

•5.07,- 


•2.00, 

2.28, 

■1.83, 

1.36, 

•1.39, 

•1.40, 

•2.07, 

•1.16, 

-.97, 

2.63, 

•5.07/ 


C1D  2460 
C1D  2470 
C1D  2480 
C1D  2490 
C1D:2500 
C1D:2501 
C1D  2510 
C1D  2520 
C1D  2530 
C1D  2540 
C1D  2550 
C1D  2560 
C1D  2570 
C1D  2580 
C1D  2590 


$-1.71,-1.78,- 

-1.72,-1.68,-1.78,-1.52,-1.38,-1.29,-1.22,  -.91, 

C1D 

2600 

$ 

-.90,-1.01, 

-.76, 

-.90, 

-.90,  -.90,-1.19,-1.00,  -.79,  -.68, 

C1D 

2610 

$ 

-.68,  -.73, 

-.85, 

-.85, 

-.61,  -.61,  -.48,  -.51,  -.92,  -.83, 

C1D 

2620 

$ 

-.61,  -.41, 

-.29, 

-.29, 

-.61,  -.74,  -.19,  -.18,  0.00,  .19, 

C1D 

2630 

$ 

-.10,  .20, 

.20, 

.02, 

.20,  -.01,  .18,  .28,  .11,  0.00, 

C1D 

2640 

$ 

-.37,  -.10, 

.02, 

.16, 

.20,  0.00,  .09,  .09,  .09,  .07, 

C1D 

2650 

$ 

.22,  .11, 

.11, 

.21, 

.09,  .21,  .20,  .37,  .28,  .07, 

C1D 

2660 

$ 

.09,  -.29, 

-.69, 

-.69, 

-.74,  -.88,-1.01,  -.86,  -.54,  -.19, 

C1D 

2670 

$ 

.19,  .23, 

.21, 

.29, 

.28,  .29,  .52,  .54,  .51,  .60, 

C1D 

2680 

$ 

.40,  .49, 

.48, 

.46, 

.49,  .27,  .06,  -.33,  -.81,-1.17/ 

C1D 

2690 

ClLL-Cl(L) 

RETURN 

END 


C1D:2700 
C1D:2701 
C1D  2710 
C1D  2720 
C1D  2730 
C1D  2740 
C1D  2750 
C1D  2760 
C1D  2770 
C1D  2780 
C1D  2790 
C1D  2800 
C1D  2810 
C1D:2820 
C1D  2830 
C1D  2840 


:  .  ...  W  ■  'J 


c 

c 

c 

c 

c 

c 


c 


SUBROUTINE  C2DTA  (C2L,L) 

UNIFORMLY  MIXED  GASES 
C2  LOCATION  1  V  -  500  CM-1 
C2  LOCATION  1515  V  -  8070  CM-1 
C2  LOCATION  1516  V  -  12950  CM-1 
C2  LOCATION  1575  V  -  13245  CM-1 
C0MM0N/C2/  C2(1575) 

DIMENSION  C2(1575) 

DIMENSION  C2A(190) ,C2B(190) ,C2C(190) ,C2D(190) ,C2E(190) ,C2F(190) , 

*  C2G(190) ,C2H(190) ,C2I(55) 

EQUIVALENCE  (C2,C2A),(C2(191),C2B) ,(C2(381),C2C) ,(C2(571),C2D), 

*  (C2(761 ) ,C2E) ,(C2(951 ) ,C2F) ,(C2(1 141 ) ,C2G) ,(C2 (1331 ) ,C2H) , 

*  (C2(1521),C2I) 

DATA(C2(I),I«  1,  190)/ 

DATA  C2A/ 


1-4.25,-3.70,* 

-3.20,' 

-2.75,- 

-1.90,-1.73,- 

-1.51,-1.29,' 

-1.11, 

-.91 

2 

-.71, 

-.51, 

-.30, 

-.06, 

.22, 

.49, 

.76, 

1.08, 

1.29, 

1.56 

3 

1.76, 

1.91, 

2.08, 

2.23, 

2.36, 

2.51, 

2.72, 

2.90, 

3.12, 

3.37 

4 

3.56, 

3.69, 

3.79, 

3.86, 

3.88, 

3.86, 

3.73, 

3.58, 

3.38, 

3.17 

5 

2.86, 

2.73, 

2.52, 

2.31, 

2.17, 

2.01, 

1.89, 

1.77, 

1.63, 

1.47 

6 

1.21, 

.92, 

.53, 

.23, 

-.17, 

-.53, 

-.74, 

-.81, 

-.84, 

-.88 

C2D  10 
C2D  20 
C2D  30 
C2D  40 
C2D  50 
C2D  60 
C2D  :70 
C2D  1 71 
C2D  :72 
C2D  :73 
C2D  :74 
C2D  : 75 
C2D  :76 
C2D  :80 
C2D  :81 
C2D  90 
C2D  100 
C2D  110 
C2D  120 
C2D  130 
C2D  140 


7- 1.00,-1.18,-1.42,-1.61,-1.86,-2.10,-2.29,-2.51,-2.72,-2.91,  C2D  150 

8- 3.14,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C2D  160 

9- 5.00,-2.68,-2.47,-2.19,-1.97,-1.71,-1.50,-1.32,-1.21,-1.13,  C2D  170 

$-1.09,-1.11,-1.10,-1.09,-1.01,-1.01,-1.11,-1.33,-1.66,-2.13,  C2D  180 

$-2.51 ,-2 .83 ,-2 .71 ,-2.39 ,-2 .09,-1 .78,-1 .59,-1.33 ,-l .18,-1.01,  C2D  190 

$  -.96,  -.91,  -.90,  -.87,  -.80,  -.79,  -.86,-1.07,-1.28,-1.69,  C2D  200 

$-2.11,-2.74,-3.09,-3.50,-3.03,-2.58,-2.23,-1.89,-1.54,-1.28,  C2D  210 

$-1.13,-1.11,-1.16,-1.20,-1.23,-1.21,-1.17,-1.12,-1.15,-1.19,  C2D  220 

$-1.20,-1.17,-1.02,  -.89,  -.68,  -.42,  -.24,  -.01,  .18,  .40,  C2D  230 

$  .57,  .77,  .96,  1.07,  1.13,  1.11,  1.08,  1.15,  1.27,  1.33,  C2D  240 

$  1.44,  1.40,  1.13,  .89,  .63,  .54,  .65,  .78,  .81,  .86,  C2D  250 

$  .82,  .68,  .47,  .14,  -.12,  -.48,  -.92,-1.43,-1.89,-2.32,  C2D  260 

$-2.81 ,-5 .00 ,-5 .00,-5 .00,-3 .14,-2 .47 ,-2 .00,-1 .71,-1 .59 ,-l .61 /  C2D  270 

DATA(C2(I),I«  191,  380)/  C2D  :280 


DATA  C2B/ 


C2D  : 281 


1- 1.69,-1.82,-1.87,-1.90,-1.94,-2.04,-2.10,-2.23,-2.32,-2.48,  C2D  290 

2- 2.71,-2.88,-3.09,-2.99,-2.43,-2.00,-1.69,-1.42,-1.38,-1.49,  C2D  300 

3- 1.70,-2.01,-2.41,-2.64,-2.63,-2.49,-2.38,-2.27,-2.16,-2.05,  C2D  310 

4- 1.94,-1.83,-1.76,-1.71,-1.70,-1.72,-1.81,-1.92,-2.03,-2.27,  C2D  320 


5- 2.61,-3.21,-4.01,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C2D  330 

6- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C2D  340 

7- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,  C2D  350 

8- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-4.30,-3.42,-3.17,-2.98,  C2D  360 

9- 2.83,-2.71 ,-2 .67 ,-2 .67 ,-2 .68 ,-2 .58 ,-2 .33,-2.01,-1.64 ,-l .32 ,  C2D  370 

$  -.97,  -.76,  -.63,  -.59,  -.60,  -.63,  -.69,  -.87,-1.08,-1.26,  C2D  380 

$-1.53,-1.87,-1.91,-1.93,-2.02,-2.21,-2.48,-2.80,-3.08,-3.11,  C2D  390 


$-3.09,- 

-2.93,-2.76,- 

-2.39,-2.01,- 

-1.69,' 

-1.36, 

-.99, 

-.63, 

-.28, 

C2D 

400 

$  0.00, 

.08, 

.11, 

.12, 

.12, 

.07, 

.01, 

-.08, 

-.23, 

-.40, 

C2D 

410 

$  -.51, 

-.53, 

-.57, 

-.60, 

-.61, 

-.73, 

-.81, 

-.95,- 

-1.05,-1.02, 

C2D 

420 

$  -.91, 

-.68, 

-.41, 

-.09, 

.18, 

.41, 

.76, 

1.00, 

1.18, 

1.39, 

C2D 

430 

$  1.51, 

1.58, 

1.68, 

1.71, 

1.80, 

1.91, 

2.02, 

2.18, 

2.32, 

2.50, 

C2D 

440 

$  2.61, 

2.69, 

2.81, 

2.89, 

2.96, 

3.04, 

3.14, 

3.27, 

3.41, 

3.55, 

C2D 

450 

D-74 


$  3.72,  3.90, 
$  4.72,  4.78, 
DATA(C2(I)  ,1' 
DATA  C2C/ 

1  .62,  -.24, 

2-1.12,-1.18, 
3-2.16,-2.30, 
4  -.45,  -.47, 

5- 1.43,-2.01, 

6- 2.42,-2.46, 

7- 2.82,-2.87,- 

8- 2.26,-2.23, 

9- 1.87,-1.83, 

$-1.78,-1.63, 
$  -.30,  -.19, 
$  .27,  .26, 

$  .32,  .72, 

$  -.17,  -.08, 
$  .29,  .26, 

$  -.51,  -.72, 
$-2.62,-2.87, 
$-5.00,-5.00,- 
$-2.32,-2.09, 

DATA(C2(I )  ,1' 
DATA  C2D/ 

1- 1.59,-1.43, 

2- 3.61,-3.72, 

3- 2.51,-2.20,- 

4  .20,  .36, 

5  1.70,  1.86, 

6  3.05,  3.02, 

7  1.83,  1.59, 

8  3.12,  3.18, 

9  1.70,  1.22, 
$-2.61,-2.60, 
$-3.38,-3.98, 
$-5.00,-5.00, 
$-5.00,-4.00, 
$-3.45,-3.37, 
$-5.00,-5.00, 
$-5.00,-5.00, 
$-5.00,-5.00, 
$-3.42,-3.35, 
$-3.30,-3.38, 

DATA(C2(I),I 
DATA  C2E/ 

1- 3.00,-3.08, 

2- 5.00,-4.52, 

3- 2.41,-2.41, 

4- 3.21,-4.13, 

5- 5.00,-5.00, 

6- 5.00,-5.00, 

7- 3.13,-2.99, 


4.03,  4.22,  4. 
4.79,  4.50,  3. 
-  381,  570)/ 


42,  4.61, 
62,  3.28, 


1.69,- 

■1.25,- 

-2.26,- 

-.49, 

■2.60,- 

■2.48,- 

■2.83,- 

■2.20,- 

•1.79,- 

■1.50,- 

-.09, 

.24, 

.91, 

0.00, 

.23, 

-.98,- 

-3.03,- 

■5.00,- 

1.98, - 

■  571, 

-1.38,- 

■3.64,- 

■1.80,- 

.51, 

2.01, 

2.98, 
1.49, 
3.17, 

.55, 

-2.63,- 

-5.00,- 

-5.00,- 

-3.73,- 

-3.26,- 

-5.00,- 

-5.00,- 

-5.00,- 

-3.26,- 

-3.37,- 

■  761, 


•2. 18, -2 
■1. 26,-1 
■2.01  ,-l 
-.46,  - 
■2. 89, -2 
•2. 49, -2 
■2. 82, -2 
•2. 09, -2 
■1. 73,-1 
•1. 37,-1 
-.04, 
.22, 
1.12,  1 
.09, 
.21, 

■1. 18,-1 
•3. 21, -5 
•5. 00,  -5 
■1 .94,-2 
760)/ 

■1 .46,-1. 
■3. 50,-3. 
■1. 49,-1. 
.61,  , 
2.20,  2. 
2.98,  3. 
1.50,  1, 
3.15,  3. 
-.27,-1. 
■2. 60,-2. 
•5. 00, -5. 
■5. 00, -5, 
■3. 62, -3, 
■3. 21, -3, 
•5. 00, -5, 
■5. 00, -5, 
•5. 00, -4, 
•3. 18, -3, 
■3. 29, -3, 
950)/ 


-3.16,-3.31, -3 
-3. 98,-3. 69, -3 
-2. 40, -2. 38, -2 
-5.00, -5.00, -5 
-5. 00,-5. 00,-5 
-4. 13,-4.02, -3 
-2. 84, -2. 73, -2 


,01,-1.79,- 

,20,-1.17,- 

,71,-1.36,- 

.37,  -.31, 

.87,-2.74,- 

,43,-2.43,- 

,79,-2.71,- 

,02,-1.96,- 

,68,-1.64,- 

,21,-1.00, 

.02,  .10, 


,50,-1.62,- 

,00,-5.00,- 

,00,-5.00,- 

00,-2.14,- 


64,-1.90,- 

41,-3.37,- 

22,  -.97, 

67,  .83, 

31,  2.47, 

01,  3.03, 

67,  1.94, 

21,  3.26, 

09,-2.54,- 

57,-2.53,- 

00,-5.00,- 

00,-5.00,- 

59,-3.53,- 

18,-3.27,- 

00,-5.00,- 

00,-5.00,- 

62,-4.07,- 

14,-3.11,- 

,14,-3.08,- 


.48,-3.71,- 

,42,-3.18,- 

,34,-2.27,- 

,00,-5.00,- 

.00,-5.00,- 

,99,-3.96,- 

,69,-2.68,- 


4.71, 

2.79, 


■1.53, 

•1.20, 

■1.06, 

-.34, 

■2.51, 

•2.46, 

•2.66, 

•1.88, 

•1.69, 

-.83, 

.16, 

.07, 

.18, 

.24, 

.02, 

•1.81, 

■5.00, 

■4.01, 

•2.26, 


2.09, 

3.30, 

-.72, 

1.00, 

2.61, 

2.97, 

2.22, 

3.19, 

•3.00, 

•2.57, 

■5.00, 

•5.00, 

■3.56, 

•3.36, 

■5.00, 

■5.00, 

•3.89, 

■3.09, 

•3.00, 


3.98, 

•2.95, 

2.21, 

5.00, 

•5.00, 

3.87, 

2.69, 


4.73, 

4.65, 

4.63, 

C2D 

460 

2.30, 

1.86, 

1.35/ 

C2D 

470 

C2D 

:480 

C2D 

:481 

-1.32,-1.20,-1.15, 

C2D 

490 

-1.32,-1.54,-1.84, 

C2D 

500 

-.81, 

-.61, 

-.49, 

C2D 

510 

-.49, 

-.75,-1.11, 

C2D 

520 

-2.42,-2.38,-2.39, 

C2D 

530 

-2.53,- 

-2 .68," 

-2.74, 

C2D 

540 

-2.49,- 

-2.40,- 

-2.32, 

C2D 

550 

-1.84,-1.86,-1.86, 

C2D 

560 

-1.74,- 

-1.79,-1.87, 

C2D 

570 

-.69, 

-.53, 

-.41, 

C2D 

580 

.18, 

.23, 

•26, 

C2D 

590 

-.01, 

-.07, 

-.09, 

C2D 

600 

-.11. 

-.38, 

-.29, 

C2D 

610 

•27, 

.29, 

.30, 

C2D 

620 

-.04, 

-.18, 

-.32, 

C2D 

630 

-2.04,- 

-2.29,- 

-2.49, 

C2D 

640 

-5.00,- 

-5.00,- 

-5.00, 

C2D 

650 

-3.38,- 

-3.01,-2.63, 

C2D 

660 

-2.20,- 

-2.02,- 

-1.82/ 

C2D 

670 

C2D 

:680 

C2D 

:681 

-2.54,- 

-2.91,- 

-3.28, 

C2D 

690 

-3.16,-3.01,-2.76, 

C2D 

700 

-.49, 

-.20, 

.03, 

C2D 

710 

1.22, 

1.38, 

1.56, 

C2D 

720 

2.76, 

2.92, 

3.01, 

C2D 

730 

2.78, 

2.44, 

2.13, 

C2D 

740 

2.50, 

2.71, 

2.93, 

C2D 

750 

2.98, 

2.59, 

2.14, 

C2D 

760 

-2.94,-2.78,- 

-2.68, 

C2D 

770 

-2.64,- 

-2.77,-3.04, 

C2D 

780 

-5.00,- 

-5.00,' 

-5.00, 

C2D 

790 

-5.00,- 

-5.00,- 

-5.00, 

C2D 

800 

-3.57,-3.53,-3.51, 

C2D 

810 

-3.60,- 

-3.96,- 

-5.00, 

C2D 

820 

-5. 00,  -5. 00,- 

-5.00, 

C2D 

830 

-5.00,- 

-5.00,- 

-5.00, 

C2D 

840 

-3.76,- 

-3.67,' 

-3.56, 

C2D 

850 

-3.10,-3.12,-3.23, 

C2D 

860 

-2. 93,- 

-2.89,- 

-2.91/ 

C2D 

870 

C2D 

:880 

C2D 

:  881 

-5.00,-5.00,-5.00, 

C2D 

890 

-2.77,- 

-2.61,-2.48, 

C2D 

900 

,-2.31  ,- 

-2.48,-2.73, 

C2D 

910 

-5.00,- 

-5.00, • 

-5.00, 

C2D 

920 

-5.00,-5.00,' 

-5.00, 

C2D 

930 

-3.73,-3.51,-3.29, 

C2D 

940 

-2.65,- 

-2.62,-2.59, 

C2D 

950 

D-75 


8- 2.57,-2.62,-2.81,-3.04,-3.21,-3.39,-3.42,-3.36,-3.21,-3.03, 

9- 2.93,-2.80,-2.64,-2.52,-2.37,-2.28,-2.20,-2.13,-2.07,-2.02, 

$-l.%,-l. 88, -1.78, -1.63, -1.44, -1.31, -1.20, -1.08,  -.98,  -.94, 
$  -.86,  -.76,  -.52,  -.31,  -.08,  .13,  .30,  .37,  .36,  .36, 

$  *35,  .35,  *39,  .46,  .48,  .41,  .23,  —.08,  —.38,  —.67, 

$  -.88,  -.96,  -.98,  -.87,  -.67,  -.36,  -.12,  .14,  .44,  .68, 

$  .90,  1.11,  1.19,  1.24,  1.25,  1.26,  1.27,  1.51,  1.59,  1.50, 

$  1.28,  .71,  .11,  -.28,  -.67,-1.32,-1.61,-1.58,-1.42,-1.18, 

$  -.91,  -.59,  -.27,  -.06,  .29,  .57,  .73,  .92,  .81,  .73, 

$  .79,  .91,  1.01,  1.03,  .88,  .72,  .63,  .38,  .12,  -.21, 

$  -.47,  -.67,-1.23,-1.67,-2.31,-2.76,-3.24,-3.49,-3.51,-3.47, 
$-3.39,-3.37,-3.43,-3.53,-3.50,-3.36,-3.18,-3.07,-2.96,-3.08/ 

C  OATA(C2(I),I-  951,1140)/ 

DATA  C2F / 

1- 3.14,-3.12,-3.23,-3.07,-2.83,-2.47,-2.23,-2.07,-1.91,-1.78, 

2- 1.63,-1.46,-1.27,-1.23,-1.26,-1.40,-1.57,-1.98,-2.28,-2.87, 

3- 3.74,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

4- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

5- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

6- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

7- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

8- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

9- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-4.91,-4.79,-4.61,-4.48,-4.40,-4.29,-4.17,-3.90, 
$-3.73,-3.59,-3.62,-3.72,-3.73,-3.69,-3.31,-3.12,-2.91,-2.63, 
$-2.41,-2.27,-2.16,-2.11,-2.28,-2.29,-2.21,-2.06,-1.91,-1.99, 
$-2.27,-2.59,-2.98,-3.35,-3.69,-3.79,-3.68,-3.53,-3.46,-3.39, 
$-3.31,-3.18,-2.97,-2.69,-2.39,-2.11,-1.83,-1.58,-1.49,-1.22/ 

C  DATA(C2(I), 1*1141 ,1330)/ 

DATA  C2G/ 

1-1.08,  -.89,  -.68,  -.54,  -.71,  -.79,  -.78,  -.66,  -.49,  -.54, 
2  -.86,-1.37,-2.08,-2.44,-3.46,-3.72,-3.74,-3.59,-3.22,-2.98, 
3-2.52,-2.21,-1.64,-1.34,-1.08,  -.86,  -.72,  -.61,  -.70,  -.72, 
4  -.67,  -.57,  -.38,  -.51,  -.97,-1.36,-1.89,-2.74,-3.18,-4.21, 

5- 4.57,-4.62,-4.78,-4.87,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

6- 4.93,-4.46,-3.99,-3.45,-2.99,-2.63,-2.30,-2.09,-2.02,-2.12, 

7- 2.18,-2.13,-2.04,-1.78,-1.83,-2.08,-2.28,-2.81,-3.01,-3.15, 

8- 3.22,-3.29,-3.58,-3.89,-4.46,-4.88,-5.00,-5.00,-5.00,-5.00, 

9- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-4.81 ,-4.52,-4.11,-3.69,-3.09,-2.99,-2.91,-2.89,-3.19,-3.20, 
$-3.36,-3.62,-3.89,-3.92,-3.73,-3.53,-3.37,-3.19,-3.02,-2.79, 
$-2.52,-2.36,-2.24,-2.19,-2.32,-2.41,-2.29,-2.06,-2.00,-2.18, 
$-2.47,-2.91,-3.57,-4.89,-5.00,-5.00,-5.00,-5.00,-5.00,-4.61, 
$-4.18,-3.89,-3.57,-3.30,-3.02,-2.74,-2.51,-2.20,-1.98,-1.73, 
$-1.57,-1.38,-1.21,-1.11,  -.98,  -.87,  -.78,  -.60,  -.37,  -.18, 
$  -.04,  -.04,  -.06,  -.16,  -.18,  -.19,  -.23,  -.45,-1.02,-1.97, 
$-2.70,-3.71,-4.01,-4.20,-4.35,-4.58,-4.73,-4.81,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 


C2D  960 
C2D  970 
C2D  980 
C2D  990 
C2D  1000 
C2D  1010 
C2D  1020 
C2D  1030 
C2D  1040 
C2D  1050 
C2D  1060 
C2D  1070 
C2D: 1080 
C2D: 1081 
C2D  1090 
C2D  1100 
C2D  1110 
C2D  1120 
C2D  1130 
C2D  1140 
C2D  1150 
C2D  1160 
C2D  1170 
C2D  1180 
C2D  1190 
C2D  1200 
C2D  1210 
C2D  1220 
C2D  1230 
C2D  1240 
C2D  1250 
C2D  1260 
C2D  1270 
C2D: 1280 
C2D: 1281 
C2D  1290 
C2D  1300 
C2D  1310 
C2D  1320 
C2D  1330 
C2D  1340 
C2D  1350 
C2D  1360 
C2D  1370 
C2D  1380 
C2D  1390 
C2D  1400 
C2D  1410 
C2D  1420 
C2D  1430 
C2D  1440 
C2D  1450 
C2D  1460 


D-76 


$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00/ 
nm(C2(I), 1-1331, 1520)/ 

DATA  C2H/ 

1- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

2- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

3- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

4- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

5- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

6- 5.00,-5.00,-5.00,-4.71,-4.31,-3.99,-3.68,-3.50,-3.34,-3.22, 

7- 3.23 ,-3 . 25 ,-3.24 ,-3.18,-3.10,-3.07,-3.18,-3.41,-3.67,-4.12, 

8- 4.68,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-4.51,-4.18, 

9- 3.73,-3.48,-3.17,-2.96,-2.73,-2.63,-2.58,-2.59,-2.57,-2.49, 
$-2.42,-2.38,-2.48,-2.62,-3.02,-3.49,-4.16,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-4.87,-4.50, 
$-4.21,-3.90,-3.66,-3.56,-3.51,-3.51,-3.51,-3.49,-3.41,-3.34, 
$-3.34,-3.47,-3.60,-3.87,-4.23,-4.59,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-4.93, 
$-4.51,-4.10,-3.78,-3.32,-3.03,-2.74,-2.43,-2.08,-1.83,-1.59, 
$-1.29,-1.02,  -.81,  -.70,  -.73,  -.90,-1.08,-1.19,-1.35,-1.47, 
$-1.57,-1.66,-1.80,-1.91,-2.04,-2.18,-2.33,-2.47,-2.61,-2.78, 
$-2.97,-3.10,-3.28,-3.44,-3.63,-3.81,-3.98,-4.15,-4.32,-4.61, 
$-4.71,-4.80,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-4.32/ 

DATA( C2 (I), 1-1521, 1575)/ 

DATA  C2I / 

1-3.24,-2.59,-2.12,-1.82,-1.57,-1.34,-1.16,-1.02,  -.82,  -.64, 

2  -.48,  -.33,  -.14,  -.06,  .08,  .21,  .39,  .52,  .61,  .72, 

3  .85,  .96,  1.02,  1.12,  1.18,  1.21,  1.17,  1.08,  .98,  .90, 

4  .97,  1.13,  1.37,  1.58,  1.74,  1.70,  1.48,  1.13,  .73,  .22, 

5  -.51,-1.57,-3.48,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
6-5.00,-5.00,-5.00,-5.00,-5.00/ 

C2L-C2(L) 

RETURN 

END 


C2D  1470 
C2D: 1480 
C2D: 1481 
C2D  1490 
C2D  1500 
C2D  1510 
C2D  1520 
C2D  1530 
C2D  1540 
C2D  1550 
C2D  1560 
C2D  1570 
C2D  1580 
C2D  1590 
C2D  1600 
C2D  1610 
C2D  1620 
C2D  1630 
C2D  1640 
C2D  1650 
C2D  1660 
C2D  1670 
C2D: 1680 
C2D: 1681 
C2D  1690 
C2D  1700 
C2D  1710 
C2D  1720 
C2D  1730 
C2D  1740 
C2D  1750 
C2D  1760 
C2D  1770 


D-77 
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* 


SUBROUTINE  C3DTA  (C3L,L) 

OZONE 

C3  LOCATION  1  V  -  575  CH-1 
C3  LOCATION  510  V  -  3270  CM-l 
COMMON  /C3/  C3(540) 

DIMENSION  C3(540),C3A(190),C3B(190),C3C<160) 
EQUIVALENCE  (C3.C3A) ,(C3(191 ) ,C3B) ,<C3(381 ) ,C3C) 
DATA(C3(I),I-  1,  190)/ 

DATA  C3A/ 


2.38, 

2.00, 

.95, 

.08, 


,-1.18,-1.33, 


6- 2.83,-3.24,-3.59,-3.94,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

7- 5.00,-5.00,-5.00,-5.00,-5.00,-4.46,-4.00,-3.50,-3.14,-2.78, 

8- 2.41,-2.10,-1.78,-1.49,-1.20,  -.20,  .15,  .35,  .57,  .78, 

9  .95,  1.20,  1.40,  1.65,  1.80,  1.97,  2.10,  2.21,  2.31,  2.38, 

$  2.40,  2.42,  2.58,  2.52,  2.20,  2.48,  2.54,  2.45,  2.30,  2.00, 

$  1.20,  .95,  .92,  .90,  .90,  .89,  .90,  .92,  .94,  .95, 

$  .96,  .95,  .90,  .80,  .68,  .55,  .40,  .30,  .19,  .08, 

$  -.02,  -.11,  -.22,  -.41,  -.56,  -.71,  -.89,-1.03,-1.18,-1.33, 
$-1.60,-1.76,-1.90,-2.02,-2.21,-2.46,-2.59,-2.79,-3.00,-3.22, 
$-3.61,-4.16,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00/ 

DATA(C3(1),I-  191,  380)/ 

DATA  C3B/ 

1- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

2- 5.00,-5.00,-5.00,-5.00,-4.16,-3.91,-3.66,-3.41,-3.05,-2.69, 


$-1.40,-1.55,-1.69,-1.83,-1.98,-2.13,-2.28,-2.43,-2.64,-2.86, 
$-3.07,-3.28,-3.50,-3.72,-3.94,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00/ 
DATA(C3(I),I»  381,  540)/ 

DATA  C3C/ 

1- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 

2- 5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00, 


C3D  10 
C3D  20 
C3D  30 
C3D  40 
C3D  50 
C3D  :  51 
C3D  : 52 
C3D  :60 
C3D  :  61 


1-4 

.15,-3.51,-3.00,- 

2.54,- 

2.12,-1.76,- 

-1.50,-1.21, 

-.86, 

-.49, 

C3D 

70 

2  - 

.29, 

-.10, 

.02, 

.12, 

.24, 

.32, 

.43, 

.52, 

.58, 

.65, 

C3D 

80 

3 

.72, 

.79, 

.76, 

.72, 

.68, 

.64, 

.68, 

.79, 

.83, 

.83, 

C3D 

90 

4 

.80, 

.78, 

.68, 

.56, 

.49, 

.42, 

.34, 

.26, 

.14, 

.02, 

C3D 

100 

5  - 

.14, 

-.35, 

-.51, 

-.74, 

-.88,-1.17,-1.40, 

-1.58,- 

2.11,-2.47, 

C3D 

no 

C3D  120 
C3D  130 
C3D  140 
C3D  150 
C3D  160 
C3D  170 
C3D  180 
C3D  190 
C3D  200 
C3D  210 
C3D  220 
C3D  230 
C3D  240 
C3D  250 
C3D  :260 
C3D  : 26 1 
C3D  270 
C3D  280 


3-2.44,-2.19,-2.03,- 

-1.86,-1.71,-1.56,-1.48,- 

-1.39,-1.26,-1.13, 

C3D 

290 

4  -.97, 

-.81, 

-.65, 

-.48, 

-.35, 

-.22, 

-.14, 

-.06, 

-.02, 

-.09, 

C3D 

300 

5  -.18, 

-.14, 

.06, 

.26, 

-.02, 

-.42, 

-.80, 

-.82, 

-.80, 

-.74, 

C3D 

310 

6  -.74, 

-.79, 

-.84, 

-.89, 

-.85, 

-.81, 

-.76, 

-.70, 

-.68, 

-.64, 

C3D 

320 

7  -.65, 

-.66, 

-.72, 

-.78, 

-.84, 

-.90,-1.02,-1.14,- 

-1.24,- 

-1.33, 

C3D 

330 

8-1.47,-1.61,-1.77,- 

-1.92,- 

-1.98,- 

-2.04,- 

-2.08,- 

-2.09,- 

-2.06,-2.03, 

C3D 

340 

9-1.98,-1.93,-1.87,-1.82,-1.76,-1.71,- 

-1.65,-1.59,- 

-1.51,- 

-1.44, 

C3D 

350 

$-1.36,-1.28,-1.18,- 

-1.08, 

-.98, 

-.88, 

-.78, 

-.69, 

-.59, 

-.49, 

C3D 

360 

S  -.37, 

-.25, 

-.18, 

-.10, 

0.00, 

.16, 

.27, 

.38, 

.57, 

.75, 

C3D 

370 

S  .93, 

1.11, 

1.20, 

1.33, 

1.44, 

1.46, 

1.48, 

1.48, 

1.64, 

1.58, 

C3D 

380 

S  1.49, 

1.23, 

.66, 

.38, 

-.33, 

-.71, 

-.66, 

-.58, 

-.49, 

-.44, 

C3D 

390 

$  -.40, 

-.40, 

-.46, 

-.53, 

-.64, 

-.76, 

-.89,- 

-1.01,- 

-1.14,- 

-1.26, 

C3D 

400 

C3D  410 
C3D  420 
C3D  430 
C3D  440 
C3D  450 
C3D  :460 
C3D  :  461 
C3D  470 


C3D  480 


3- 5.00,-5.00, 

4- 5.00,-5.00, 

5- 2.44,-2.12, 

6  -.81,  -.77, 

7  -.26,  -.19, 

8- 2.38,-2.97, 

9- 3.37,-3.10, 

$-1.33,-1.25, 
$  -.54,  -.42, 
$  .48,  .49, 

$  -.55,  -.77, 
$  -.76,  -.71, 
$  -.70,  -.72, 
$-2.13,-2.57, 

C3L-C3(L) 

RETURN 

END 


-5.00,-5.00,- 
-5.00,-4.16,- 
-1.85,-1.57,- 
-.72,  -.68, 
-.17,  -.18, 
-3.57,-4.16,- 
-2.79,-2.47,- 
-1.17,-1.09,- 
-.27,  -.12, 
.50,  .50, 

-.83,  -.88, 
-.69,  -.67, 
-.82,  -.93,- 
-2.92,-3.26,- 


-5. 00, -5. 00, -5 

.00,-5.00,-5.00, 

C3D 

490 

-3. 77, -3. 58,-3 

.38,- 

-3.07,-2.75, 

C3D 

500 

-1.07, 

-.98, 

.94, 

-.89, 

-.85, 

C3D 

510 

,  -.58, 

-.53, 

.48, 

-.41, 

-.34, 

C3D 

520 

-.46, 

-.79,-1, 

.12,-1.45,-1.75, 

C3D 

530 

-5.00,- 

-5.00,- 

-4, 

.16,-3.90,-3.63, 

C3D 

540 

-1.84,-1.73,-! 

.63,-1.52,-1.41, 

C3D 

550 

-.96, 

-.89, 

- 

.82, 

-.73, 

-.68, 

C3D 

560 

.18, 

.25, 

.31, 

.39, 

.47, 

C3D 

570 

.46, 

.23, 

.01, 

-.11, 

-.33, 

C3D 

580 

-.92, 

-.91, 

.90, 

-.85, 

-.80, 

C3D 

590 

-.65, 

-.65, 

.66, 

-.67, 

-.68, 

C3D 

600 

-1.14,- 

-1. 24,-1, 

.34,-1.51,-1.68, 

C3D 

610 

-4. 16,-5. 00,-5 

.00,-5.00,-5.00/ 

C3D 

620 

C3D 

630 

C3D 

640 

C3D 

650 

SUBROUTINE  EWIDTH(XSTAR, ACBAR, ADBAR, ODBAR, DV , WSL , TTRANS ) 


SUBROUTINE  EWI DTHCXSTAR, ACBAR, ADBAR, ODBAR, DV.WSL,  TTRANS) 

EWI 

10 

c 

EWI 

20 

c 

THIS  SUBROUTINE  CALCULATES  THE  EQUIVALENT  WIDTH  OF  A 

EWI 

30 

c 

VOIGT  LINE  IN  A  FINITE  SPECTRAL  INTERVAL 

EWI 

40 

c 

EWI 

50 

DATA  IENTER, ISTEP , NALF , XSMIN , XSMAX, CDRAT  /0, 2, 3, 1.0,50.0,0.1/ 

EWI 

60 

DATA  RTPI ,C1,C2,RT2  /l. 7724539, 0.8325546, 0.4697186, 1.4142136/ 

EWI 

70 

c 

EWI 

80 

c 

RTPI  -  SQRT(PI) 

EWI 

90 

c 

Cl  -  SQRT(AL0G(2.)) 

EWI 

100 

c 

C2  -  SQRT(AL0G(2.)/P1) 

EWI 

110 

c 

RT2  •  SQRT(2.) 

EWI 

120 

c 

EWI 

130 

IF( IENTER. GT.O)  GO  TO  1 

EWI 

140 

HALFDV  -  DV/2. 

EWI 

150 

NMAX  -  ISTEP*NALF 

EWI 

160 

IENTER  -  1 

EWI 

170 

1  CONTINUE 

EWI 

180 

c 

EWI 

190 

c 

FIND  LARGER  LINEWIDTH,  COLLISION(ALFC)  OR  DOPPLER(ALFD) 

EWI 

200 

c 

EWI 

210 

ALFC  -  ACBAR/ ODBAR 

EWI 

220 

ALFD  -  ADBAR/ ODBAR 

EWI 

230 

RAT  -  ALFC/ ALFD 

EWI 

240 

ALFMAX  -  ALFC 

EWI 

250 

IF(RAT.LT.l.O)  ALFMAX  -  ALFD 

EWI 

260 

c 

EWI 

270 

c 

CHECK  FOR  WEAK  LINE  LIMIT 

EWI 

280 

c 

EWI 

290 

XS  -  XSTAR/(ALFMAX*ODBAR) 

EWI 

300 

IF(XS.LT.XSMIN)  GO  TO  30 

EWI 

310 

c 

EWI 

320 

c 

DEFINE  INTEGRATION  PARAMETERS 

EWI 

330 

c 

EWI 

340 

DELW  -  ALFMAX /I STEP 

EWI 

350 

C3  •  XSTAR*C2 /ADBAR 

EWI 

360 

C4  -  Cl /ALFD 

EWI 

370 

Y  -  C1*RAT 

EWI 

380 

DELX  -  0.5*DELW*C4 

EWI 

390 

XMIN  -  NMAX*DELW*C4 

EWI 

400 

SUM  -  0.0 

EWI 

410 

c 

EWI 

420 

c 

CHECK  FOR  DOPPLER  LIMIT 

EWI 

430 

c 

EWI 

440 

IF(RAT.LT. CDRAT)  GO  TO  20 

EWI 

450 

c 

EWI 

460 

c 

CHECK  FOR  STRONG  LINE  LIMIT 

EWI 

470 

c 

EWI 

480 

IF(XS.GT.XSMAX)  GO  TO  20 

EWI 

490 

c 

EWI 

500 

c 

EVALUATE  VOIGT  LINESHAPE 

EWI 

510 

c 

EWI 

520 

X  -  XMIN  +  DELX 

EWI 

530 

X  -  XMIN  +  DELX 


D-BO 


DO  10  I  -  l.NMAX 

EWI 

540 

X  -  X  -  2.*DELX 

EWI 

550 

CALL  CPF12(X,Y,WR,WI,WR1) 

EWI 

560 

c 

EWI 

570 

c 

INTEGRATE 

EWI 

580 

c 

EWI 

590 

FAC  •  C3*WR 

EWI 

600 

IF  (FAC.GT.6.0)  GO  TO  20 

EWI 

610 

EXPO  -  EXP(-FAC) 

EWI 

620 

FAC  -  C3*WR1 

EWI 

630 

EXP1  -  EXP ( FAC*DELX ) 

EWI 

640 

SUM  «  SUM  +  EXPO* (EXP 1  -  1./EXP1J/FAC 

EWI 

650 

10  CONTINUE 

EWI 

660 

c 

EWI 

670 

c 

CALCULATE  ASYMPTOTIC  CONTRIBUTION  TO  EQUIVALENT  WIDTH 

EWI 

680 

c 

EWI 

690 

20  FAC  -  SQRT(Y*C3/RTPI ) 

EWI 

700 

U1  -  FAC/XMIN 

EWI 

710 

U2  -  FAC/(C4*HALFDV) 

EWI 

720 

ASYMP  -  0.0 

EWI 

730 

IF(U2.LT.4.0)  ASYMP  -  EXP(-U2*U2)/U2 

EWI 

740 

IF(U1 .LT.4.0)  ASYMP  -  ASYMP-EXP(-U1*U1 )/Ul 

EWI 

750 

ASYMP  -  ASYMP+RTPI*(ERFU(U2 )-ERFU(Ul ) ) 

EWI 

760 

ASYMP  -  ASYMP* FAC 

EWI 

770 

c 

EWI 

780 

c 

WSL  -  EQUIVALENT  WIDTH  OF  A  SINGLE  LINE  (CM-1) 

EWI 

790 

c 

EWI 

800 

WSL  -  DV  -  2 . 0* ( SUM+  ASYMP ) / C4 

EWI 

810 

IF(RAT.LT.CDRAT)  GO  TO  40 

EWI 

820 

IF(WSL.LT.O.O)  WSL  -  0.0 

EWI 

830 

IF(WSL.GT.DV)  WSL  -  DV 

EWI 

840 

RETURN 

EWI 

850 

c 

EWI 

860 

c 

BEERS  LAW  FOR  WEAK  LINE  LIMIT 

EWI 

870 

c 

EWI 

880 

30  TTRANS  •  EXP(-XSTAR) 

EWI 

890 

RETURN 

EWI 

900 

c 

EWI 

910 

c 

DOPPLER  LIMIT 

EWI 

920 

c 

EWI 

930 

40  C3  -  XSTAR*C1 / ( ADBAR*RT2 ) 

EWI 

940 

WSL  -  RT2*ALFD*SQRT(AL0G(1.4C3*C3))/C1  +  WSL 

EWI 

950 

RETURN 

EWI 

960 

END 

EWI 

970 

D-81 
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SUBROUTINE  CPF12(X,Y,WR,WI,WR1 ) 

CPF 

10 

c 

CPF 

20 

c 

ROUTINE  COMPUTES  THE  REAL  (WR)  AND  IMAGINARY  (VI)  PARTS  OF  THE 

CPF 

30 

c 

COMPLEX  PROBABILITY  FUNCTION  W(Z)-EX?(-2**2)*ERFC(-I*Z)  IN  THE 

CPF 

40 

c 

UPPER  HALF-PLANE  Z-X+I*Y  (I.E.  FOR  Y>-0) 

CPF 

50 

c 

MAXIMUM  RELATIVE  ERROR  OF  WR  IS  <2.0E-06,  THAT  OF  VI  <5.0E-06 

CPF 

60 

c 

THIS  ROUTINE  DEVELOPED  BY  J.HUMLICEK,  REF.  JQSRT , V0L21 , P309 ( 1 980 ) 

CPF 

70 

c 

CPF 

80 

DIMENSION  T(6 ) ,C<6 ) ,S<6 ) 

CPF 

90 

DATA  V .314240376, .947788391 , 1.59768264, 

CPF 

100 

1  2.27950708,3.02063703,3.8897249/, 

CPF 

110 

2  C/1. 01172805, -.75197147, 1.2557727E-2, 

CPF 

120 

3  1 .00220082E-2 ,-2 .420681 35E-4 , 5. 0084806 IE-7/ , 

CPF 

130 

4  S/1 .393237 , .231152406 ,-. 155351466 , 

CPF 

140 

5  6 .21836624E-3 ,9 . 19082986E-5 ,-6 . 27525958E-7 / 

CPF 

150 

WR  -  0. 

CPF 

160 

VI  -  0. 

CPF 

170 

Y1  -  Y  +  1.5 

CPF 

180 

Y2  -  Y1*Y1 

CPF 

190 

c 

IF  HIGH  RELATIVE  ACCURACY  IN  REGION  II  IS  NOT  REQUIRED,  THE 

CPF 

200 

c 

FOLLOWING  20  LINES  MAY  BE  DELETED. 

CPF 

210 

c 

IF  ((Y.GT.0.85)  .OR.  (ABS(X) .LT.18.1*Y+1 .65) )  GO  TO  2 

CPF 

220 

C****REGI0N  II 

CPF 

230 

C 

IF  (ABS(X) .LT.12 .)  WR  -  EXP(-X*X) 

CPF 

240 

C 

Y3  -  Y  +  3. 

CPF 

250 

C 

DO  1  I  -  1,6 

CPF 

260 

C 

R  -  X-T(I) 

CPF 

270 

C 

R2  -  R*R 

CPF 

280 

c 

D  -  l./(R2+Y2) 

CPF 

290 

c 

D1  -  Y1*D 

CPF 

300 

c 

D2  -  R*D 

CPF 

310 

c 

WR  -  WR  +  Y*(C(I)*(R*D2-1.5*Dl)+S(I)*Y3*D2)/(R2+2.25) 

CPF 

320 

c 

R  -  X+T(I) 

CPF 

330 

c 

R2  -  R*R 

CPF 

340 

c 

D  -  1 . / (R2+Y2 ) 

CPF 

350 

c 

D3  -  Y1*D 

CPF 

360 

c 

D4  -  R*D 

CPF 

370 

c 

WR  -  WR  +  Y*(C(I)*(R*D4-1.5*D3)-S(I)*Y3*D4)/(R2+2.25) 

CPF 

380 

c 

1  WI  -  WI  +  C(I)*(D2+D4)  +  S(I)*(D1-D3) 

CPF 

390 

c 

GO  TO  4 

CPF 

400 

C****REGION  I 

CPF 

410 

2  DO  3  I  •  1,6 

CPF 

420 

R  -  X-T(I) 

CPF 

430 

D  -  1 ,/(R*R+Y2) 

CPF 

440 

D1  -  Y1*D 

CPF 

450 

D2  -  R*D 

CPF 

460 

R  -  X4T(I) 

CPF 

470 

D  -  1 ./ (R*B+Y2) 

CPF 

480 

D3  -  Y1*D 

CPF 

490 

D4  -  R*D 

CPF 

500 

WR  -  WR  +  C(I)*(D1+D3)  -  S(I)*<D2-D4) 

CPF 

510 

3  WI  -  WI  +  C(I)*(D2+D4)  +  S(I)*(D1-D3) 

CPF 

520 

C****CALCULATE  FIRST  DERIVATIVE  OF  W(Z)  FOR  VOIGT  PROFILE 

CPF 

530 

D-82 


CONTINUE 

CPF 

540 

VR1  -  2.*(Y*W1-X*WR) 

CPF 

550 

RETURN 

CPF 

560 

END 

CPF 

570 
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SUBROUTINE  LIB( MSLTO , LPLT ) 


C 

C 

C  LIB  CALLS  THE  SLIT  FUNCTION  ROUTINE,  SETS 
C  UP  THE  OUTPUT  AND  THEN  PLOTS 

C 

c 

c***************************** 

c****  IMPLEMENTATION  NOTE  **** 

£***************************** 

C  1)  TITLE  ASSIGNMENTS  WILL  HAVE  TO  BE  CHANGED  FOR  MACHINES  THAT 
C  STORE  MORE  THAN  4  CHARACTERS  PER  VORD  (UNI VAC  +  CDC) 

C  VARIABLES  EFFECTED:  HIT,  TTIT,  BLANK,  TITLE,  NCWD 

C  FORMAT  STATEMENTS  :  900,  902 

C  2)  PLOTTER  INITIALIZATION  MAY  HAVE  TO  BE  CHANGED 
C  CALLS  EFFECTED:  INITP$ 

C  3)  PLOTTER  TERMINATION  MAY  NEED  CHANGING 

C  CALLS  EFFECTED:  ENDPLT 

C  4)  FOR  THE  PRIME:  COMPILE  WITH  SHORT  INTEGER  AND  INCLUDE  THE 
C  INTEGERS  STATMENT 

C 
C 

C  INTEGER*4  NIN,NOUT,NSTOR,NPLT,NTBL,IXY, MSLTO, LPLT 

COMMON/ CARD4/  IXY 
LOGICAL  PLTR.PRTR 
DIMENSION  HIT(5,2),YTIT(7,3) 

DIMENSION  HITLE(20) ,YTITLE(20) ,TITLE(20) ,IXT(2 ) ,IYT(3 ) 
DIMENSION  XSS(8),SS(8) 

COMMON  /DEVNUM/  NIN ,NOUT , NSTOR, NPLT , NTBL 
COMMON  /PLTDEV/  NSCR,NPLTR 

COMMON /XBLOCK/KTITLE , XAXI S, XI NIT, XSCALE ,DXT,NMINX 
COMMON/YBLOCK/YTITLE ,  YAHS ,  YINIT,  YSCALE ,  DYT ,  NMINY 
COMMON/MAXY/YMAX 

COMMON/PBLOCK/TITLE , I CHAR, JCHAR , KCHAR 

COMMON/SETUP /ITYPE , ISLOT , NEWT , IPRT 

DATA  XTIT/4HWAVE , 4HLENG , 4HTH  ,4H(MIC ,4HR0N) , 

*  4HWAVE , 4HNUMB , 4HER  ,4H(CM-,4H1)  / 

DATA  YTIT/4HTRAN , 4HSMIT , 4HTANC , 4HE  ,4H  ,4H  ,4H  , 

*  4HRADI , 4HANCE , 4H  (W.4H/SR/ ,4HCM2/,4HMICR,4HON)  , 

*  4HRADI , 4HANCE , 4H  (W.4H/SR/ ,4HCM2/ ,4HCM-1 ,4H)  / 

DATA  IYT/13,27,25/,ICT/20,18/ 

C 

DATA  XDRG,Y0RG/1 . ,  1 .  / .BLANK/4H  / ,NCWD/4 / 

C  SET  PLOT  DEVICE  NUMBERS 
NSCR  -  11 
NPLTR  -  4 
C 

PRTR-. FALSE. 

PLTR-. FALSE. 

READ(NIN,900)  TITLE 
DO  10  1-1,20 
XCHAR-21-I 

IF(TITLE (KCHAR) .NE. BLANK)  GO  TO  15 


LIB 

10 

LIB 

20 

LIB 

30 

LIB 

40 

LIB 

50 

LIB 

60 

LIB 

70 

LIB 

80 

LIB 

90 

LIB 

100 

LIB 

110 

LIB 

120 

LIB 

130 

LIB 

140 

LIB 

150 

LIB 

160 

LIB 

170 

LIB 

180 

LIB 

190 

LIB 

200 

LIB 

210 

LIB 

220 

LIB 

230 

LIB 

240 

LIB 

250 

LIB 

260 

LIB 

270 

LIB 

280 

LIB 

290 

LIB 

300 

LIB 

310 

LIB 

320 

LIB 

330 

LIB 

340 

LIB 

350 

LIB 

360 

LIB 

370 

LIB 

380 

LIB 

390 

LIB 

400 

LIB 

410 

LIB 

420 

LIB 

430 

LIB 

440 

LIB 

450 

LIB 

460 

LIB 

470 

LIB 

480 

LIB 

490 

LIB 

500 

LIB 

510 

LIB 

520 

LIB 

530 
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10  CONTINUE 
15  KCHAR-KCHAR*NCWD 

READ(NIN,904)  MSLT.MPRTN.MPLTN.NSN, VIDTHN, SHIFTN 

1F(MSLT  .EQ.  0  .AND.  MSLTO  .EQ.  0)  STOP  3 

IF(MSLT  .EQ.  0)  GO  TO  20 

MPRT-MPRTN 

MPLT-MPLTN 

NS-NSN 

WIDTH- VIDTHN 
SHIFT-SHIFTS 
JSLOT-MSLT 

SET  UP  FOE  TRANSMISSION  AND  RADIANCE  OUTPUT 

20  DO  75  mPE-1,2 
ITY-3-ITYPE 
REWIND  NFLT 
REWIND  NSCR 
YMAX-O. 

IPRT-1 

IF(IABS(MPRT) .EQ.ITY  .OR.  MPRT.EQ.O)  IPRT— 1 
IF(IPRT  .GT.  0)  WRITE(NOUT,902)  TITLE 

READ  IN  SLIT  FUNCTION  INFO 

IF(MSLT  .EQ.  0)  GO  TO  35 
IF(PRTR)  GO  TO  30 
IF  (JSLOT.EQ.l)  GO  TO  30 
READ (NIN, 906)  (XSSd)  ,1-1  ,NS) 

READ(NIN,906)  (SS(I) ,1-1 ,NS) 

30  PRTR-.TRUE. 

GET  PLOT  INFO 

IF  (LPLT.NE.O  .OR.  MPLT.EQ.O)  GO  TO  35 
LPLT  -  1 

OPEN  PLOTTER  ON  FIRST  CALL 
CALL  INITP$(NPLTR,0) 

CALL  PLOT  (X0RG,Y0RG,-3) 

35  I SLOT- 1 

IF(IABS(MPLT) .EQ.ITY  .OR.  MPLT.EQ.O)  ISLOT— 1 
IF(IPRT.LT.0  .AND.  ISLOT. LT.O)  GO  TO  75 
NEWT-1 

IF(MFLT  .LT.  0)  NEWT— 1 
IF(ISLOT.LT.O)  GO  TO  55 
IF(PLTR  .OR.  MSLT.EQ.O)  GO  TO  40 
RZAD(NIN,908)  XAXIS ,XINIT, XEND, DXT .NMINX 
R£AD(NIN,908)  YAXIS, YINI , YEND.DY .NMINY 
PIT*-. TRUE. 

*0  Xl-<*WT*l)/2  ♦  1 

0CAU-(XSND-XX1RT) /XAXI S 
TWIT»TWT 

▼rcalex  na»-nnT) /yas  s 


LIB  540 
LIB  550 
LIB  560 
LIB  570 
LIB  580 
LIB  590 
LIB  600 
LIB  610 
LIB  620 
LIB  630 
LIB  640 
LIB  650 
LIB  660 
LIB  670 
LIB  680 
LIB  690 
LIB  700 
LIB  710 
LIB  720 
LIB  730 
LiB  740 
LIB  750 
LIB  760 
LIB  770 
LIB  780 
LIB  790 
LIB  800 
LIB  810 
LIB  820 
LIB  830 
LIB  840 
LIB  850 
LIB  860 
LIB  870 
LIB  880 
LIB  890 
LIB  900 
LIB  910 
LIB  920 
LIB  930 
LIB  940 
LIB  950 
LIB  960 
LIB  970 
LIB  980 
LIB  990 
LIB  1000 
LIB  1010 
LIB  1020 
LIB  1030 
LIB  1040 
LIB  1050 
LIB  1060 


n  a  o 


DYT-DY 
DO  45  1-1,5 

45  XTITLE(I)-XTIT(I,IX) 

ICHAR-IXT(IX) 

IX-IX+1 

IF(ITYPE  .EQ.  1)  IX-1 
DO  50  1-1,7 

50  YTITLE(I)-YTIT(I,IX) 

JCHAR-IYT(IX) 

t 

CALCULATE  AND  OUTPUT 

55  IF  (JSLOT.EQ.l)  GO  TO  65 

WRITE(NOUT,910)  WIDTH, SHIFT, NS 
WRITE(NOUT,912)  (SS(I) ,1-1 ,NS) 

WRITE(NOUT,914)  (XSS(I ) ,1-1 ,NS) 

CALL  GEN(WIDTH, SHIFT, XSS.SS, NS) 

GO  TO  70 

65  WRITE (NOUT ,916) 

CALL  ALL 
70  CONTINUE 

IF(ISLOT.GT.O)  CALL  PL0T(XAXIS+5. 0,0. 0,-3) 

75  CONTINUE 
MSLTO-JSLOT 

C  REWIND  NPLT  IN  CASE  THERE  IS  ANOTHER  CALCULATION 
REWIND  NPLT 

C  CLOSE  PLOTTER  ON  LAST  CALCULATION 

IF  (IXT.EQ.O  .AND.  LPLT.EQ.l)  CALL  ENDPLT 
RETURN 
C 

900  FORMAT (20A4) 

902  FORMAT( 1H1 , 30X, 20A4 ) 

904  FORMAT(4I2,2X,2F10.0) 

906  F0RMAT(8F10.5) 

908  FORMAT(4E10.4,I10) 

910  FORMAT (//IX, 22HVARIABLE  SLIT  FUNCTION/'1X,6HWIDTH-,F10.5,4X, 
1  6HSHIFT- ,F10.5,4X, 20HN0 .  OF  DEFINING  PTS-,12) 

912  FORMAT ( IX, 8HYS  ARE  ,8F10.3) 

914  FORMAT ( IX, 8HXS  ARE  .8F10.3) 

916  F0RMAT(//1X,25HN0  SLIT  FUNCTION  USED  ///) 

END 


LIB  1070 
LIB  1080 
LIB  1090 
LIB  1100 
LIB  1110 
LIB  1120 
LIB  1130 
LIB  1140 
LIB  1150 
LIB  1160 
LIB  1170 
LIB  1180 
LIB  1190 
LIB  1200 
LIB  1210 
LIB  1220 
LIB  1230 
LIB  1240 
LIB  1250 
LIB  1260 
LIB  1270 
LIB  1280 
LIB  1290 
LIB  1300 
LIB  1310 
LIB  1320 
LIB  1330 
LIB  1340 
LIB  1350 
LIB  1360 
LIB  1370 
LIB  1380 
LIB  1390 
LIB  1400 
LIB  1410 
LIB  1420 
LIB  1430 
LIB  1440 
LIB  1450 
LIB  1460 
LIB  1470 
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SUBROUTINE  ALL 


SUBROUTINE  ALL 

ALL 

10 

c 

ALL 

20 

c 

ALL 

30 

c 

PRINTS/PLOTS  UNDEGRADED  SPECTRUM 

ALL 

40 

c 

ALL 

50 

c 

ALL 

60 

c ***************************** 

ALL 

70 

C****  IMPLEMENTATION  NOTE  **** 

ALL 

80 

Q*MM*M*M*M*M*M*Mt**Mit 

ALL 

90 

c 

FOR  THE  PRIME:  COMPILE  WITH  SHORT  INTEGER  AND  INCLUDE  THE 

ALL 

100 

c 

INTEGERS  STATMENT 

ALL 

110 

c 

ALL 

120 

c 

ALL 

130 

c 

INTEGER*4  NIN,NOUT,NSTOR,NPLT,NTBL 

ALL 

140 

DOUBLE  PRECISION  DVM, XFF 

ALL 

150 

DIMENSION  Y(363),X(363),V(2) 

ALL 

160 

COMMON  /DEVNUM/  NIN , NOUT , NSTOR , NPLT , NTBL 

ALL 

170 

COMMON/BLOCK2/Y.X 

ALL 

180 

COMMON/VS/  VS 1, VS 2 

ALL 

190 

COMMON / SETUP /ITYPE , I SLOT , NEWT , IPRT 

ALL 

200 

READ (NPLT)  VS1,VS2,DV 

ALL 

210 

DVM-DV 

ALL 

220 

XFF  -  VS1  -  DVM 

ALL 

230 

N  -  0 

ALL 

240 

10  READ(NPLT)  V(2),V(1) 

ALL 

250 

IF  (V(l).EQ.-l.  .AND.  V(2) .EQ.-l .)  GO  TO  20 

ALL 

260 

XFF  -  XFF  +  DVM 

ALL 

270 

N  -  N  +  1 

ALL 

280 

X(N)  -  XFF 

ALL 

290 

Y(N)  -  V (ITYPE) 

ALL 

300 

IF  (N.EQ.360)  CALL  WRTDAT(N,X,Y) 

ALL 

310 

GO  TO  10 

ALL 

320 

20  IF  (N.NE.O)  CALL  WRTDAT(N,X,Y) 

ALL 

330 

CALL  WRTDAT(N,X,Y) 

ALL 

340 

CALL  PROUT 

ALL 

350 

RETURN 

ALL 

360 

END 

ALL 

370 
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SUBROUTINE  GEN (WIDTH, SHIFT, XSS.SS, NS) 

GEN 

10 

c 

GEN 

20 

c 

GEN 

30 

c 

SLIT  FUNCTION 

GEN 

40 

c 

GEN 

50 

c 

GEN 

60 

C* **************************** 

GEN 

70 

c****  IMPLEMENTATION  note  **** 

GEN 

80 

c** 

GEN 

90 

c 

FOR  THE  PRIME:  COMPILE  WITH  SHORT  INTEGER  AND  INCLUDE  THE 

GEN 

100 

c 

INTEGER*4  STATMENT 

GEN 

110 

c 

GEN 

120 

c 

INTEGER**  NIN , NOUT , NSTOR , NPLT , NTBL 

GEN 

130 

DOUBLE  PRECISION  DVM,XMID,XFF 

GEN 

140 

LOGICAL  FIRST 

GEN 

150 

DIMENSION  ARRAY(360) ,F(360) ,Y(363) ,X(363) 

GEN 

160 

DIMENSION  XS(8) ,S(8) ,XSS(1 ) ,SS(1 ) ,XC(8) ,V(2) 

GEN 

170 

COMMON  /DEVNUM/  NIN, NOUT, NSTOR, NPLT, NTBL 

GEN 

180 

COMMON/BLOCKl/F 

GEN 

190 

COMMON/BLOCK2/Y.X 

GEN 

200 

COMMON / BLOCK3 /ARRAY 

GEN 

210 

COMMON/VS/  VS1.VS2 

GEN 

220 

COMMON/ SETUP /ITYPE , ISLOT .NEWT , IPRT 

GEN 

230 

c 

GEN 

240 

c 

NDEG  -  ORDER  OF  THE  INTERPOLATION  -  NS  MUST  BE  AT  LEAST  NDEG+1 

GEN 

250 

c 

GEN 

260 

DATA  NDEG/1/ 

GEN 

270 

c 

GEN 

280 

FIRST-. TRUE, 

GEN 

290 

N-0 

GEN 

300 

READ(NPLT)  VS1.VS2.DV 

GEN 

310 

DVM-DV 

GEN 

320 

XFF  -  VS1  -  DVM 

GEN 

330 

c 

GEN 

340 

c 

NORMALIZE  SLIT  FUNCTION 

GEN 

350 

c 

GEN 

360 

IF(WIDTH  .GE.  1800.)  GO  TO  96 

GEN 

370 

IF(DVM  .GE.  WIDTH)  GO  TO  95 

GEN 

380 

FAC-WIDTH/ (XSS (NS )-XSS ( 1 ) ) 

GEN 

390 

DO  20  IS-l.NS 

GEN 

400 

XS(IS)-FAC*(XSS(IS)-XSS(1 ))  -  .5*WIDTH 

GEN 

410 

S(IS)-SS(IS) 

GEN 

420 

20  CONTINUE 

GEN 

430 

IF(DVM  .GT.  .3333*WIDTH)  WRITE (NOUT, 902) 

GEN 

440 

XMID-XF  -  DVM 

GEN 

450 

c 

GEN 

460 

25  NF  -  0 

GEN 

470 

30  READ(NPLT)  V(2),V(1) 

GEN 

480 

IF  (V(l).EQ.-l.  .AND.  V(2) .EQ.-l .)  GO  TO  50 

GEN 

490 

XFF  -  XFF  +  DVM 

GEN 

500 

IF  (NF.EQ.O)  XF  -  XFF 

GEN 

510 

NF  -  NF  +  1 

GEN 

520 

F(NF)  -  V(ITYPE) 

GEN 

530 
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C 


C 


50 


55 


60 


70 

75 


80 


85 


90 


95 

96 


IF  CNF .ME. 360)  GO  TO  30 

GEN 

540 

GEN 

550 

CALCULATE  SLIT  FUNCTION 

GEN 

560 

GEN 

570 

IF(NF  .EQ.  0)  GO  TO  90 

GEN 

580 

XMID-XMID  ♦  SHIFT 

GEN 

590 

DO  55  1*1 ,NS 

GEN 

600 

XC(I)-XS(I)  +  XMID 

GEN 

610 

SUM-0. 

GEN 

620 

AREA-0. 

GEN 

630 

IXX-(XC( 1 )-XF)/DVM 

GEN 

640 

IF(IXX»LT. 0  .AND.  FIRST)  GO  TO  50 

GEN 

650 

XX-FLOAT ( I XX- 1 )*DVM  +  XF 

GEN 

660 

IX-IXX 

GEN 

670 

XX-XX+DVM 

GEN 

680 

IX-IX+1 

GEN 

690 

IF(XX  .GT.  XC(NS))  GO  TO  75 

GEN 

700 

IFCIX  .GT.  NF)  GO  TO  80 

GEN 

710 

TERPV-TERP (XX , XC , S , NDE  G , NS , IER ) 

GEN 

720 

AREA-AREA  +  TERPV 

GEN 

730 

IFCIX  .GE.  1)  GO  TO  70 

GEN 

740 

GET  DATA  FROM  BEFORE  CURRENT  DATA  BLOCX 

GEN 

750 

J-IABS(IX)  +  1 

GEN 

760 

SUM-SUM  +  TERPV* ARRAYCJ ) 

GEN 

770 

GO  TO  60 

GEN 

780 

GEN 

790 

SUM-SUM  +  TERPV*F(IX) 

GEN 

800 

GO  TO  60 

GEN 

810 

N-N  +  1 

GEN 

82C 

X(N)-XMID 

GEN 

830 

Y(N)«SUM/AREA 

GEN 

840 

IFCN  .EQ.  360)  CALL  WRTDAT(N,X,Y) 

GEN 

850 

GO  TO  50 

GEN 

860 

GEN 

870 

STORE  THE  END  OF  THIS  INFO  BEFORE  READING  IN  THE  NEXT  BLOCK 

GEN 

880 

GEN 

890 

IF  (NF.NE.360)  GO  TO  90 

GEN 

900 

DO  85  I-IXX.NF 

GEN 

910 

IX-NF-I+1 

GEN 

920 

ARRAY(IX)-FCI) 

GEN 

930 

CONTINUE 

GEN 

940 

XMID-XMID-SHIFT 

GEN 

950 

FIRST  -  .FALSE. 

GEN 

960 

GO  TO  25 

GEN 

970 

GEN 

980 

IF  (N.NE.O)  CALL  WRTDAT(N,X,Y> 

GEN 

990 

CALL  WRTDAT(N,X,Y) 

GEN 

1000 

CALL  PROUT 

GEN 

1010 

RETURN 

GEN 

1020 

GEN 

1030 

VRI1E(NOUT,904) 

GEN 

1040 

STOP  2 

GEN 

1050 

WRITE (NOUT, 905) 

GEN 

1060 

STOP  7  GEN  1070 

902  FORMAT ( 38H0**WARNING**  WIDTH  IS  LESS  THAN  3.*DV)  GEN  1080 

904  FORMAT ( 3 3H0**ERR0R* *  WIDTH  SMALLER  THAN  DV)  GEN  1090 

905  FORMAT ( 3 5H0**ERR0R**  WIDTH  GREATER  THAN  1800)  GEN  1100 

END  GEN  1110 
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SUBROUTINE  PROUT 

PRO 

10 

c 

PRO 

20 

c 

PRO 

30 

c 

PRINT  OUTPUT  AND  PLOT  CURVES 

PRO 

40 

c 

PRO 

50 

c 

PRO 

60 

c***************************** 

PRO 

70 

C****  IMPLEMENTATION  note  **** 

PRO 

80 

C*< 

PRO 

90 

c 

1)  TITLE  ASSIGNMENTS  WILL  HAVE  TO  BE  CHANGED  FOR  MACHINES  THAT 

PRO 

100 

c 

STORE  MORE  THAN  4  CHARACTERS  PER  WORD  (UNI VAC  +  CDC) 

PRO 

110 

c 

VARIABLES  EFFECTED:  TNORM1 ,  TNORM2 

PRO 

120 

c 

2)  FOR  THE  PRIME:  COMPILE  WITH  SHORT  INTEGER  AND  INCLUDE  THE 

PRO 

130 

c 

INTEGER**  STATMENT 

PRO 

140 

c 

PRO 

150 

c 

PRO 

160 

c 

INTEGER**  NIN , NOUT , NSTOR , NPLT , NTBL 

PRO 

170 

LOGICAL  FIRST 

PRO 

180 

DIMENSION  XTITLE(20) ,YTITLE(20) ,TITLE(20) ,TNORMl(5) 

PRO 

190 

DIMENSION  Y(360) ,X(360) ,XX(363) ,YY(363) ,OUT(4 ,3) 

PRO 

200 

COMMON  /DEVNUM/  NIN, NOUT, NSTOR, NPLT, NTBL 

PRO 

210 

COMMON  /PLTDEV/  NSCR.NPLTR 

PRO 

220 

COMMON /BLOCK1  /X 

PRO 

230 

COMMON / BL0CK2  /YY , XX 

PRO 

240 

COMMON / BLOCK3 /Y 

PRO 

250 

COMMON/XBLOCK/XTITLE , XAXI S , XINIT , XSCALE , DXT , NMINX 

PRO 

260 

COMMON/YBLOCK/YTITLE , TAXI S , YINIT , YS  CALE , DYT , NMINY 

PRO 

270 

COMMON/MAXY/YMAX 

PRO 

280 

COMMON/PBLOCK/TITLE , ICHAR, JCHAR , KCHAR 

PRO 

290 

COMMON/VS/  VS1.VS2 

PRO 

300 

COMMON/ SETUP /ITYPE , ISLOT ,NEWT , IPRT 

PRO 

310 

DATA  TNORM1/4H  NO , 4HRMAL , 4HIZED , 4H  TO  ,4H10.(/ 

PRO 

320 

DATA  TNOFM2/4H)  / 

PRO 

330 

c 

PRO 

340 

FIRST-. TRUE, 

PRO 

350 

IF(ISLOT  .LT.  0)  GO  TO  40 

PRO 

360 

c 

PRO 

370 

c 

SET  UP  FOR  PLOTTING 

PRO 

380 

c 

PRO 

390 

IF(NEWT  .GT.  0)  GO  TO  30 

PRO 

400 

VSX-VS1 

PRO 

410 

VSI-1 .E+4/VS2 

PRO 

420 

VS2-1.E+4/VSX 

PRO 

430 

c 

SET  APPROPRIATE  MAXIMA  FOR  AXIS 

PRO 

440 

30  IF(XINIT  .LE.  0.)  XINIT-VS1 

PRO 

450 

IF( XSCALE  .LE.  0.)  XSCALE- (VS2-XINIT) /XAXI S 

PRO 

460 

IF (DXT  .LE.  0.)  DXT-XSCALE 

PRO 

470 

IF (NMINX  .LE.  0)  NMINX-9 

PRO 

480 

IF (YS CALE  .GT.  0)  GO  TO  35 

PRO 

490 

IEXP-ALOGIO(YMAX) 

PRO 

500 

IF(YMAX  .LT.  1.)  IEXP-IEXP-1 

PRO 

510 

IF(IEXP  .EQ.  -1)  I EXP-0 

PRO 

520 

YMAX-INT(YMAX/10.**IEXP  +  .99) 

PRO 

530 
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non 


YINIT-YINIT/ 1 0  .**IEXP 

PRO 

540 

YSCALE-(YMAX-YINIT) /YAXI S 

PRO 

550 

NMINY-9 

PRO 

560 

dyt-yscale 

PRO 

570 

GO  TO  45 

PRO 

580 

35  YCHECK-YINIT+YAXIS*YSCALE 

PRO 

590 

IF(YMAX.LE. YCHECK)  IEXP-INT(ALOG10(YCHECK) )-l 

PRO 

600 

IF(YMAX.GT. YCHECK)  IEXP-INT(ALOG10(YMAX))-1 

PRO 

610 

IF(IEXP.EQ.-l)  IEXP-0 

PRO 

620 

YINIT-Y1NIT/10.**IEXP 

PRO 

630 

IF(YMAX.GT.YCHECK)  YMAX-INT(YMAX/10.**IEXP+.99) 

PRO 

640 

IF(YMAX.GT. YCHECK)  YSCALE-(YMAX-YINIT)/YAXIS 

PRO 

650 

IF(YMAX.UE.YCHECK)  YSCALE-YSCALE/10.**IEXP 

PRO 

660 

IF(YMAX.GT. YCHECK)  DYT-YSCALE 

PRO 

670 

IF(YMAX.LE. YCHECK)  DYT-DYT/10.**IEXP 

PRO 

680 

45  XEND-XSCALE*XAXIS*1 .01  4  UNIT 

PRO 

690 

PRO 

700 

PLOT  AXES  AMD  ANNOTATION 

PRO 

710 

PRO 

720 

CALL  AXIS(0 .0,0.0,XTITLE,-ICHAR,XAXIS ,0.0,XINIT,XSCALE,DXT,NMINX)  PRO 

730 

CALL  AXIS(0 ,0,YAXIS,TITLE,+KCHAR,XAXIS,0.0,XINIT,XSCALE,DXT,NMINX)PR0 

740 

CALL  AXIS(0.0,0.0,YTITLE,+JCHAR,YAXIS,90.0,YINIT,YSCALE,DYT,NMINY)PRO 

750 

CALL  AXIS(XAXIS,0.0,4H  ,-4 .YAXIS, 90.0, YI NIT, YSCALE,DYT,NMINY)  PRO 

760 

IF(IEXP.EQ.O)  GO  TO  40 

PRO 

770 

CALL  SYMBOL (XAXIS+1 . ,3.*YAXIS/40. ,YAXIS/40. .TN0RM1 

,90.0,20)  PRO 

780 

CALL  WHERE (XNORM , YNORM , DUMFAC ) 

PRO 

790 

TEXP-IEXP 

PRO 

800 

CALL  NUMBER(XNORM, YNORM, YAXIS /40..TEXP, 90. 0,-1) 

PRO 

810 

CALL  WHERE (XNORM, YNORM, DUMFAC) 

PRO 

820 

CALL  SYMBOL(XNORM>YNOSM,YAXIS/40. ,TNORM2,90.0,4) 

PRO 

830 

PRO 

840 

40  Nl-0 

PRO 

850 

REWIND  NSCR 

PRO 

860 

10  READ(NSCR)  N 

PRO 

870 

IF(N.EQ.O)  RETURN 

PRO 

880 

READ(NSCR)  (X(I) ,Y(I) ,1-1 ,N) 

PRO 

890 

IF(ISLOT.LT.O)  GO  TO  55 

PRO 

900 

DO  25  I-l.N 

PRO 

910 

XPT-X(I) 

PRO 

920 

YPT-Y(I) 

PRO 

930 

IF(NEWT  .GT.  0)  GO  TO  20 

PRO 

940 

IF(ITYPE  .EQ.  1)  GO  TO  15 

PRO 

950 

YPT-1 .E-4*YPT*XPT*XPT 

PRO 

960 

15  XPT-1.E+4/XPT 

PRO 

970 

20  IF(XPT  .GT.  XEND)  GO  TO  26 

PRO 

980 

IF(XPT  .LT.  UNIT)  GO  TO  25 

PRO 

990 

Nl-Nl+1 

PRO 

1000 

XX(N1 )-XPT 

PRO 

1010 

YY(N1)-YPT 

PRO 

1020  - 

25  CONTINUE 

PRO 

1030 

26  DO  50  1-1, N1 

PRO 

1040 

50  YY(I)-YY(I)/10.**IEXP 

PRO 

1050 

XX  (N 1+1  )-XINIT 

PRO 

1060 
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XX (N 1+2 )«XSCALE 

PRO 

1070 

YY(N1+1)-YINIT 

PRO 

1080 

YY(Nl+2)-YSCALE 

PRO 

1090 

PRO 

1100 

PLOT  LIME 

PRO 

1110 

PRO 

1120 

IF(N1  .LE.  1)  GO  TO  55 

PRO 

1130 

CALL  LINE(XX,YY,N1, 1,0,0) 

PRO 

1140 

XX(1)-XX(N1) 

PRO 

1150 

YY(1 )-YY(Nl )*10.**IEXP 

PRO 

1160 

Ml-1 

PRO 

1170 

PRO 

1180 

OUTPUT  INFO  TO  UNIT  #N0UT 

PRO 

1190 

PRO 

1200 

55  IF(IPRT  .LT.  0)  GO  TO  10 

PRO 

1210 

IF(. NOT. FIRST)  WRITE (NOUT, 901) 

PRO 

1220 

IF(ITYPE.EQ.1.AND. FIRST)  WRITE (NOUT, 902) 

PRO 

1230 

IF(ITYPE.EQ.2.AND.FIRST)  WRITE (NOUT, 903) 

PRO 

1240 

FIRST  -  .FALSE. 

PRO 

1250 

DO  90  II-1,N,180 

PRO 

1260 

NN-II+179 

PRO 

1270 

IF(NN  .GT.  N)  NN-N 

PRO 

1280 

NN3-(NN-II+l)/3 

PRO 

1290 

IF(NN3*3  .NE.  NN-II+1)  NN3-NN3+1 

PRO 

1300 

NI-II+NN3-1 

PRO 

1310 

IF(ITYPE.EQ.2)  GO  TO  60 

PRO 

1320 

WRITE (NOUT, 904) 

PRO 

1330 

WRITE (NOUT, 905) 

PRO 

1340 

GO  TO  65 

PRO 

1350 

60  WRITE (NOUT, 906) 

PRO 

1360 

WRITE (NOUT, 907) 

PRO 

1370 

65  DO  85  I "II, MI 

PRO 

1380 

DO  75  NCOL-1,3 

PRO 

1390 

Il-I  +  (NCOL-1 )*NN3 

PRO 

1400 

IF(I1  .GT.  NN)  GO  TO  80 

PRO 

1410 

IF(ITYPE  .EQ.  2)  GO  TO  70 

PRO 

1420 

OUT(2,NCOL)-X(Il) 

PRO 

1430 

OUT(l ,NCOL)"l .E+4/X(I 1) 

PRO 

1440 

OUT(3,NCOL)-Y(Il) 

PRO 

1450 

OUT(4,NCOL)«Y(ll) 

PRO 

1460 

GO  TO  75 

PRO 

1470 

70  OUT(3,NCOL)-l.E+4/X(Il) 

PRO 

1480 

OUT(4 ,MCOL)-l ,E-4*Y(I 1 )*X(I 1 )*X(I 1 ) 

PRO 

1490 

OUT(l,MCOL)-X(Il) 

PRO 

1500 

OUT (2 ,NCOL)"Y(I 1 ) 

PRO 

1510 

75  CONTINUE 

PRO 

1520 

NCOL-4 

PRO 

1530 

80  NCOL-NCOL  -  1 

PRO 

1540 

IF(ITYPE.EQ.l)  WRITE(N0UT,908) 

((0UT(J,K) ,J-1 ,4) ,K-1 ,NC0L) 

PRO 

1550 

IF(ITYPE.EQ.2)  WRITE(NOUT,909) 

( (0UT(J,K) ,J-1 ,4) ,K-1 ,NCOL) 

PRO 

1560 

85  CONTINUE 

PRO 

1570 

90  CONTINUE 

PRO 

1580 

GO  TO  10 

PRO 

1590 
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901  FORMAT(lHl)  pro  1600 

902  F0RMAT(1H1,54X,25HATM0SPHERIC  TRANSMITTANCE )  PRO  1610 

903  FORMAT ( 1H1 , 51X, 32HRADIATION  < WATTS/ SR/ CM**2 /UNITS))  PRO  1620 

904  FORMAT ( /2 ( 1 X , 6HLAMBDA , 7X , 1HV , 9X , 1 3HTRANSMITTANCE , 1 OX ) ,  PRO  1630 

1  1X,6HLAMBDA, 7X, 1HV , 9X, 13HTRANSMITTANCE)  PRO  1640 

905  F0RMAT(2 ( IX , 7HMI CRONS , 4X , 4HCM-1 , 3 IX ) , IX , 7HMI CRONS , 4X , 4HCM-1 )  PRO  1650 

906  FORMAT(/2(4X,lHV,6X,9HRADIATION,4X,6HLAMBDA,2X,9HRADIATION,4X),  PRO  1660 

1  4X, 1HV , 6X , 9HRADIATI0N , 4X , 6HLAMBDA , 2X , 9HRADIATI0N )  PRO  1670 

907  FORMAT(2(3X,4HCM-l,4X,8HPER  CM-1 ,4X,7HMICRONS,3X,6HPER  UM,6X),  PRO  1680 

1  3X , 4HCM-1 , 4X , 8HPER  CM-1 ,4X,7HMICRONS,3X,6HPER  UM)  PRO  1690 

908  FORMAT(2(lX,F7.4,3X,F7.2,5X,F4.2,5X,F7.5,8X),  PRO  1700 

1  1X,F7.4,3X,F7.2,5X,F4.2,5X,F7.5)  PRO  1710 

909  FORMAT(2(1X,OPF7.2,2X,1PE10.4,3X,OPF7.4,2X,1PE9.3,4X),  PRO  1720 

1  1X,0PF7.2,2X,1PE10.4,3X,0PF7 .4,2X, 1PE9.3)  PRO  1730 

END  PRO  1740 


SUBROUTINE  WRTDAT(N,X,Y) 


SUBROUTINE  WRTDAT(N,X,Y) 

WRT 

10 

C 

WRT 

20 

C 

WRT 

30 

C  WRITES  INFO  ON  UNIT  #NSCR  IN  BINARY 

WRT 

40 

C  SETS  UP  DATA  FOR  PROUT 

WRT 

50 

c 

WRT 

60 

C 

WRT 

70 

WRT 

80 

C****  IMPLEMENTATION  NOTE  **** 

WRT 

90 

WRT 

100 

C  FOR  THE  PRIME:  COMPILE  WITH  SHORT  INTEGER 

WRT 

110 

C 

WRT 

120 

C 

WRT 

130 

LOGICAL  FLAG 

WRT 

140 

DIMENSION  X(1),Y(1) 

WRT 

150 

COMMON  /PLTDEV/  NSCR.NPLTR 

WRT 

160 

COMMON/MAXY/YMAX 

WRT 

170 

COMMON/ SETUP /I TYPE , ISLOT , NEWT , IPRT 

WRT 

180 

C 

WRT 

190 

WRITE (NSCR)  N 

WRT 

200 

IF(N  .EQ.  0)  RETURN 

WRT 

210 

IFCISLOT  .LT.O)  GO  TO  20 

WRT 

220 

FLAG-NEWT . LT . 0  .AND.  ITYPE.EQ.2 

WRT 

230 

DO  10  I-1,N 

WRT 

240 

YI-Y(I) 

WRT 

250 

IF(FLAG)  YI«1.E-04*YI*X(I)**2 

WRT 

260 

10  YMAX-AMAXl(YI.YMAX) 

WRT 

270 

20  WRITE(NSCR)  (X(I),Y(I),I-1,N) 

WRT 

280 

N-0 

WRT 

290 

RETURN 

WRT 

300 

END 

WRT 

310 
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FUNCTION  TERP(XC,X,Y,NDEG, NPTS, IER) 

TER 

10 

c 

TER 

20 

c 

TER 

30 

c 

FUNCTION  PERFORMS  NEWTONS  INTERPOLATION  FOR  7,'ISCPETE  DATA 

TER 

40 

c 

AS  A  FUNCTION  OF  ONE  VARIABLE 

TER 

50 

c 

TER 

60 

c 

WHERE  XC  -  INDEPENDENT  VARIABLE  AT  WHICH  THE  INTERPOLATED 

TER 

70 

c 

VALUE  OF  THE  DEPENDENT  VARIABLE  IS  DESIRED 

TER 

80 

c 

X  -  TABLE  OF  INDEPENDENT  VARIABLE  VALUES  IN  INCREASING 

TER 

90 

c 

ORDER 

TER 

100 

c 

Y  -  CORRESPONDING  TABLE  OF  DEPENDENT  VARIABLE  VALUES 

TER 

110 

c 

NDEG  -  ORDER  OF  THE  INTERPOLATING  POLYNOMIAL  USED  (MAX  - 

10)  TER 

120 

c 

NPTS  -  NUMBER  OF  ENTRIES  IN  X  AND  Y 

TER 

130 

c 

IER  -  RETURN  CODE: 

TER 

140 

c 

0  -  INTERPOLATION  WAS  PERFORMED 

TER 

150 

c 

-1  »  EXTRAPOLATION  BELOW  TABLE  VALUES 

TER 

160 

c 

1  -  EXTRAPOLATION  ABOVE  TABLE  VALUES 

TER 

170 

c 

TER 

180 

c 

ROUTINE  MODIFIED  FROM  'THE  COMPUTING  TECHNOLOGY  CENTER 

TER 

190 

c 

NUMERICAL  ANALYSIS  LIBRARY',  O.R.N.L. 

TER 

200 

c 

TER 

210 

c 

TER 

220 

c***************************** 

TER 

230 

C****  IMPLEMENTATION  NOTE  **** 

TER 

240 

c ***************************** 

TER 

250 

c 

FOR  THE  PRIME:  COMPILE  WITH  SHORT  INTEGER 

TER 

260 

c 

TER 

270 

c 

TER 

280 

DIMENSION  X(1),Y(1),Y1(11) 

TER 

290 

INTEGER  HI 

TER 

300 

c 

TER 

310 

NFIT-NDEG  +  1 

TER 

320 

N-NFIT 

TER 

330 

IF(N  .GT.  NPTS)  N-NPTS 

TER 

340 

IF(XC-X(1))  50,20,10 

TER 

350 

10  IF(XC  .GT.  X(NPTS))  GO  TO  70 

TER 

360 

20  IER-0 

TER 

370 

DO  30  I-l.NPTS 

TER 

380 

IF(XC  -  X(I))  40,120,30 

TER 

390 

30  CONTINUE 

TER 

400 

40  LOW-I  -  (N+l  )/2 

TER 

410 

IF(LOW  .LE.  0)  GO  TO  60 

TER 

420 

HI-LOW  +  N  -  1 

TER 

430 

IF(HI  .GT.  NPTS)  GO  TO  80 

TER 

440 

GO  TO  90 

TER 

450 

c 

TER 

460 

c 

XC  LT  X(l) 

TER 

470 

c 

TER 

480 

50  IER— 1 

TER 

490 

60  HI-N 

TER 

500 

LOW-1 

TER 

510 

GO  TO  90 

TER 

520 

c 

TER 

530 
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XC  GT  X(NPTS) 

TER 

540 

TER 

550 

70  IER-1 

TER 

560 

80  LOW-NPTS  -  N  +  1 

TER 

570 

HI-NPTS 

TER 

580 

TER 

590 

INTERPOLATE 

TER 

600 

TER 

610 

90  CON-1. 

TER 

620 

Y1(1)-Y(L0W) 

TER 

630 

TERP-Y(LOV) 

TER 

640 

IM-LOW  -  1 

TER 

650 

IL-LOW  +  1 

TER 

660 

DO  110  K-IL.HI 

TER 

670 

VAL-TERP 

TER 

680 

IA-R  -  LOW 

TER 

690 

IS-IA  +  1 

TER 

700 

YKIS)-Y(R) 

TER 

710 

DO  100  I-l.IA 

TER 

720 

IR-IM  +  I 

TER 

730 

100  Yl(IS)  -  (Y1 (I )-Yl (IS) ) /(X(IR)-X(K) ) 

TER 

740 

CON-CON* (XC-X(K“1 ) ) 

TER 

750 

110  TERP-VAL  +  C0N*Y1 (IS) 

TER 

760 

RETURN 

TER 

770 

120  TERP-Y(I) 

TER 

780 

RETURN 

TER 

790 

END 

TER 

800 
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addition  of  A  s/cm  spectral  resolution  band  MODEL  OPTION  TO  LOW— ETC(U) 
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F.  SUGGESTED  IMPLEMENTATION  PROCEDURE 

The  following  procedure  is  suggested  to  get  the  modified  version  of 
LOWTRAN5  operational. 


1.  Read  the  Tape 

The  9- track  800  BP I  EBCDIC  tape,  supplied  by  Aerodyne  Research,  Inc., 
contains  the  following  information. 


FILE  NO. 

DESCRIPTION 

RECORD 

LENGTH 

BLOCK 

SIZE 

NO.  OF 
BLOCKS 

1 

SOUCE  LISTING  OF  MODIFIED 
LOWTRAN5 

80 

800 

435 

2 

BINARY  TRANSLATION  PROGRAM 

80 

800 

5 

3 

FORMATTED  BAND  MODEL 
PARAMETERS 

120 

1200 

769 

4 

TEST  CASE  INPUT 

80 

800 

3 

5 

TEST  CASE  OUTPUT 

132 

1320 

76 

2.  Convert  Formatted  Band  Model  Parameters  to  Binary 

Once  the  tape  has  been  successfully  read  onto  the  user's  system,  the 
formatted  band  model  parameters  (file  3)  should  be  converted  to  a  binary  file. 
It  is  assumed  at  this  point  that  the  user  has  created  a  disc  file  containing 
the  formatted  band  model  parameters.  The  conversion  to  binary  is  accomplished 
by  using  the  program  in  file  2.  The  source  listing  of  this  program  can  be 
found  in  Appendix  G.  The  user  has  the  option  of  converting  only  a  subset 
of  the  band  model  parameters  to  binary  if  storage  space  and/or  storage 


charges  are  a  problem.  Instructions  for  using  the  binary  conversion  pro¬ 
gram  are  included  in  the  source  listing.  Once  the  binary  conversion  is 
completed,  the  user  can  delete  the  formatted  band  model  parameter  from  the 
system. 

3.  Compilation  and  Modification  of  Source  Program 

Before  attempting  compilation  of  the  source  program  in  file  1  the  user 
should  obtain  a  listing  and  compare  it  to  the  one  enclosed  in  this  report. 
Furthermore,  the  user  should  read  all  of  Section  3  of  this  report  in  order 
to  decide  what  specific  lines  of  code  must  be  modified  in  order  to  be 
compatible  with  his  system.  If  the  user  already  has  a  version  of  L0UTRAN5 
operational,  it  is  possible,  although  not  recommended,  to  implement  the 
BMOD  option  by  making  only  the  required  modifications  outlined  in  Section  3. 

Users  with  a  CALCCMP  compatible  plotter  should  find  it  straightforward 
to  utilize  the  enclosed  plotting  package.  The  modifications  required  are 
outlined  in  subsection  3.3.1  and  Appendix  A.  If  the  user  decides  to  not 
use  the  plotting  package,  the  statements  listed  in  Table  A. 2  should  be 
commented  out. 

The  Aerodyne  plot  package  uses  file  9  to  write  the  data  (in  binary)  for 
subsequent  use  in  plotting.  Since  file  7  (the  regular  L0WTRAN5  output  file) 
has  formatted  data,  it  was  decided  not  to  change  its  format  in  case  the  user 
already  has  a  plot  package  that  uses  file  7.  Ve  have  commented  out  the 
references  to  file  7,  since  it  is  not  used  in  our  version.  It  is  easily 
activated  by  removing  the  consents  from  the  following  lines: 

LOW  1239,  LOU  228-2310,  LOU  2380 

TRA  2330,  TRA  2420 
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Th«  word  si ze  for  Hollerith  formats  on  the  PRIME  400  is  4  characters 
while  It  is  6  end  10  respectively  for  UNIVAC  and  CDC  machines.  Ve  have 
changed  some  literals  in  L0WTRAN5  from  10  characters  to  8  by  defining  HZ, 
SEASN  and  VULCN  as  double  precision.  If  this  format  is  not  compatible  with 
the  user's  machine  (e.g.,  CDC  and  UNIVAC),  the  following  statements  must  be 
appropriately  modified: 


LOW  1119 

NSM  61,  340-370 

HPR  51 

GEO  71 

ANG  11 

P0I  21 

EXA  51 

PAT  61 

TRA  51 

AIR  51 

HMD  70 

BMO  100 

BLR  20,  2390-2480 

LIB  270,  360-400,  510,  511,  1080,  1370,  1390 

PRO  190,  320-330 


4.  Run  the  Test  Case 

Run  the  sample  case  to  verify  that  the  code  is  operating  as  expected. 
The  input  and  output  are  both  on  the  tape  (Files  4  and  5,  respectively) ,  and 
correspond  to  the  first  sample  case  in  Appendix  E.  These  cases  can  be  run 
before  getting  the  plots  operational  by  setting  MPLT  »  0.  When  MPLT  ■  0, 
no  calls  to  external  plotting  subroutines  are  made.  The  test  case  is  for  an 
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observer  et  100  tan  looking  at  the  earth  surface.  Both  transmittance  and 
radiation  are  calculated  for  the  1900-2500  cm"^  spectral  region.  Three 
cases  are  calculated: 

1.  BMOD  option  (JBM0D  “  1) 

2.  Slit  Function  (MODEL  -  0) 

3.  Regular  LOWTRAN5  (JBMOD  -  0) 

Plots  from  these  three  cases  are  also  In  Appendix  E. 
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APPENDIX  6 

FORMATTED  TO  BINARY  TRANSLATION  PROGRAM 
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C  PROGRAM  BINVRT(TAPE5,TAPE6) 

C  FORJtATTED  READ  AKD  BINARY  WRITE  MODULE  FOR  THE  BAND  MODEL 
C  MODIFICATION  OF  LOWTRAK  5  (OCTOBER  1980) 

C 

DIMENSION  SD(5,4,20) ,OD(5,4,20) ,ZMWT(4 ,20) ,ALF0(4,20) ,TBAND(5) 
DATA  KSPEC/4/,NOUT/6/,KIN/5/ 

FILE  UNIT  NUMBERS:  NIN  •  5  (FORMATTED  DATA  FILE) 

NOUT  ■  6  (BINARY  DATA  FILE) 

READ  TAPE  HEADER 

READ  (NIN, 600)  VA,VB,NV,NTEMP,(TBAND(N) ,K-1 .KTEMP) 

IF  ONLY  A  SUBSET  OF  THE  TAPE  IS  WANTED  OK  THE  BINARY  FILE,  MODIFY 
THE  VALUES  OF  VBOT  AND  VTOP  BELOW  TO  THE  DESIRED  RANGE. 

THE  DEFAULT  VALUES  ARE: 

VA  •  400.  CM-1  AND  VB  -  9995.  CM-1 

(VA  AND  VF.  ARE  THE  VALUES  ON  THE  TAPE  HEADER.) 

SINCE  THE  TAPE  IS  BLOCKED  IN  GROUPS  OF  20  WAVENUMBER  POINTS,  VBOT 
SHOULD  BE  A  MULTIPLE  OF  100  AND  VTOP  SHOULD  BE  XX95. 

VBOT  -  VA 
VTOP  -  VB 

CHECK  FOR  100  CM-1  BLOCKS  IN  CASE  VBOT.NE.VA  OR  VTOP.NE.VR 
VBOT  -  1 00. *INT(VBOT/100. +0.001 ) 

VTOP  -  1 00. *IKT(VTOP/100. +0.001 )  +•  95. 

IF  (VBOT.LE.VA)  VBOT  -  VA 
IF  (VTOP.GE.VB)  VTOP  -  VB 

WRITE  (NOUT)  VBOT, VTOP, NV, NTEMP, (TBAND(N) ,N"1 ,NTEMP) 

DETERMINE  BLOCK  NOS.  IN  WHICH  VBOT  6  VTOP  FALL 
ILOU  -  1NT((VB0T-VA)/ 100. +0.001 )  +  1 
IHI  -  INT((VTOP-VA)/l 00 .+0.001 )  +  1 
C 

DO  10  IBLK-l.IHI 

READ  (NIN,  610)  (((SD(N,K,IW)  ,OD(N,K.,IW)  ,N-1 ,  NTEMP  ) ,  ALFO  (K ,  IW ) , 

&  zinrr(K,ir),K-i,KSPEc),iw-i,20) 

IF  (IBLK.LT. ILOV)  GO  TO  10 

WRITE  (NOUT)  (((SD(N,K,IW),OD(N,K,IW),N-i, NTEMP) ,ALF0(K,IW), 

&  ZMWT(K,IW),K-1,KSPEC),IW-1,20) 

10  CONTINUE 

EKDFILE  NOUT 
C 

STOP 

600  FORMAT(2F10.0,2I5,5F5.0) 

610  F0RMAT(10E10.3,F10.3,F10.1) 

END 


l 


4 


» 
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